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Joyce: 


- Schneller schreiben 
mit LocoScript 


PC: 

- EGA auf VGA Umrüsten 

- Super-Programme in Basic 2 
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Grundlagen 


- Datenspeicherung 
verständlich 


CPC-Prog ramme 


Shape Editor 

Wirtschaftssimulation¬ 

perfekt 






















































































































































































































































































































Das Beste vom aktuellen Spielemarkt für alle CPCs 



FUGHT ACE Gontrol, Sinke For- 

Disk. 3“ 65'* DM 



ARCADEMUSCLE 

Die Actioncompilation. Fünf Spitzenspiele 
zum Sparpreis. 

Cass. 49.-DM* Disk. 3“ 69,-DM* 



CaSS 45.- DM* Disk .3-' 54i . 0 



° lsk ' 

Cass. 


69 ,-OW* 



iSSS--. 

spiele: Tetris, Starqli derFn M o nate - Fl 

Cass - 44-DM. n? e,Sentinel 

’ D, sk. 3" 59,- [ 





NINJA 

Der letzte Ninja muß sein gefährlichstes 
Abenteuer bestehen. Ein Actionspiel für 
Joystickprofis! 


niRk 3“ 54.- DM‘ 


FOOTBALLMANAGER II 

Managen Sie Ihren eigenen Fußballclub. Noch 
besser, bunter und spielbarer als der erste Teil. 
Cass. 35,-DM* Disk. 3“ 49,- DM’ 


SS* Sar nmler. Summ™ n 3 preis - 

- merGa ? r 0 :r^L. 


Disk. 3 


GAME SET MATCH 2 

Snooker, Hang On, Jan Bothams, Test Match, 
Basket Master, Track + Field, Nick Faldo, 
Championship Sprint, Matchday II. 

Cass. 45,-DM* Disk. 3" 65,-DM* 


: ORCES MAGIQUES 

/lagische Kräfte für Ihren CPC! Vier klasse Spiele im Sparpack. 

>ink Panther, Clever & Smart, Vampire’s Empire und Western Games. 

Cass. 39.-DM* Disk. 3“ 59,-DM* 



Super Sampler 


HISTORY IN THE MAKING 

Die Supercompilation. 15 Spitzentitel 
für Ihren CPC. Spannung, Action und 
Abenteuer. Disk. 3“ 84,-DM* 


COMMAND PERFORMANCE 

Zehn Spiele, die Geschichte mach¬ 
ten! Vom gelungenen Sportspiel bis 
zum actionreichen Weltraumspiel, 
Entertainment nur vom Feinsten. 

Cass. 49,-DM* Disk. 3“ 69,-DM* 


CLASSIC GAMES 4 

3D-Schach, Bridge, Damespiel, Back¬ 
gammon. 

Cass. 39,-DM* Disk. 3“ 54,-DM* 
10 HIT GAMES 

Cass. 44,- DM* Disk. 49,- DM* 


SOLID GOLD 

Disk. 3" 65,-DM* 


Bitte verwenden Sie für Ihre Bestellung unsere Postkarte 

* Unabhängig von der Anzahl der bestellten Programme berechnen wir für das In¬ 
land 4,- DM bzw. für das Ausland 6,- DM Porto und Verpackung. 



WesfcernGames 


DMV-Verlag • Postfach 250 ■ 3440 Eschwege 
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Editorial—| 



Liebe Leserin, lieber Leser, 

Sie werden sich sicherlich fragen, warum das altvertraute Gesicht, das Sie 
sonst jeden Monat begrüßt hat, nicht an der gewohnten Stelle zu finden ist. 

Wir meinen, es ist jetzt an der Zeit, auch einen der Redakteure zu Wort 
kommen zu lassen. 

Als erstes möchte ich mich kurz vorstellen: Mein Name ist Claus Daschner, 
und ich betreue seit über zwei Jahren überwiegend die CPC-Abteilung. In 
diesem Zeitraum konnte ich mich mit den CPC-Computern befassen, um 
Ihnen das Bestmögliche zu bieten. Nun . nach mehr als fünf Jahren — eine 
recht lange Zeit für Heini-Computer — ist der Markt scheinbar nicht mehr 
bereit, den Anwendern genügend Soft- und Hardware anzubieten. Die Folgen 
sind daher klar ersichtlich und absehbar. 

Aber auf uns können Sie sich in dieser Hinsicht verlassen, wir bieten Ihnen 
weiterhin gute Software und neue Informationen an. 

Zum Beispiel stellen wir Ihnen diesen Monat einen interessanten Bericht über 
die Grundlagen der Floppy vor. Dort finden Sie alles Wissenswerte über die 
kleinen runden Magnetscheiben. 

Kennen Sie eigentlich unsere Grafik-Serie für den CPC? Sie soll Ihnen helfen, 
mehr Effekte in der Grafikprogrammierung zu erreichen. Unterstützt werden 
wir dabei von Herrn Friedrich Belzner, einem bekannten Computer- 
Grafik-Künstler. 

Doch auch die PCW- und PC-Besitzer kommen nicht zu kurz. Sie bekommen 
außer interessanten Berichten, wie der Umbau eines EGA-Rechners zur VGA- 
Auflösung, auch exzellente Programme in die Hände bzw. in den ewig 
hungrigen Diskettenschacht. 

In diesem Sinne wünschen wir Urnen wieder viel Spaß beim Informieren 
und Stöbern in unserer Zeitschrift. 

Auf weitere gute Zusammenarbeit Uir 



hßr- 


Claus Daschner, 
PC-AMSTRAD-Redciktion 
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INHALT 


BERICHTE: 


AMS-Line 12 

- Aktuelle Informationen vom Hersteller 
AMSTRAD 

Vom Drehen, Speichern und Lesen 14 

- Gestern, heute und morgen. Alles was Sie 
über den Massenspeicher Diskette wissen 
müssen. 


SERVICE: 


Tricks, wie mit 
LocoScript schneller 
geschrieben werden 
kann 

S. 62 


(<$> 


13 Die Service-Ecke 

- Ein Service besonderer Art erwartet Sie auf 
Seite... 


SERIE: 


Im Zauberreich der Grafik 22 

- Die Grafik-Experimente gehen weiter. 


PROGRAMME: 


32 Kleine Grafik ganz groß 

- Ein schneller und leicht zu handhabender 
Shape-Editor. 

38 Schwarzes Gold 

- Eine aufregende und spannende Simulation 
um Geld und Macht. 


ASSEMBLER: 


Die Assembler-Ecke 48 

- Findige Assemblerroutinen für den Hausge¬ 
brauch. 


TIPS & TRICKS: 


52 100,- DM für 1 kByte 

- Kleine Programme mit großer Wirkung zum 
schnellen Abtippen. 



Informationen über Informationen bietet Ihnen unser Bericht über die 
Geschichte der Floppies 


S. 14 


57 Bank-RSX 

- Die zweite RAM-Bank beim CPC 6128 ge¬ 
nutzt. 


57 

Schattenhaft 

- Bildermanipulation. 

58 

Schreibarbeiten 

- Kleine Schrift in MODE 0 

60 

Pagemaker 

- Der Diskettenkatalog wird auf besondere 
Weise geändert. 


SOFTWARE REVIEWS: 

Spiele 26 

- Game Set and Match 2 

- The Real Ghostbusters 

- Barbarian II 


Mit dem PCW Da¬ 
ten komprimieren 

S.66 
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30 Gamers Message 

- Wenn Sie Lösungen zu Spielen suchen, 
dann sollten Sie unbedingt bei uns rein¬ 
schauen. Denn hier finden Sie jede Menge 
Tips, Karten und Lösungswege. 


_PCW/JQYCE: 

Schneller schreiben mit LocoScript 62 

- Sinnvolle Belegung der Tasten über die 
SCHABLON.STD-Datei. 


ID-Scanner 63 

- Das Diskettenformat im Griff 


Der Traum von Geld und Macht. Spannende Simulation eines Öl¬ 
managers 

S.38 


Logo zeigt, was es geschlagen hat 

- "Uhriges" unter Logo. 

Gut gepackt mit STOREFILL 

- Nachdem im letzten Heft der Bildschirm 
komprimiert wurde, hilft Ihnen dieses Pro¬ 
gramm beim Archivieren und Komprimie¬ 
ren von Diskettendateien. 


Geld-Kontrolle mit 
dem PC 


S. 78 



Flipper 74 

- Flipper ermöglicht das Hin- und Hersprin¬ 
gen von CP/M zu LocoScript. Die Review 
finden Sie auf... 


PC: 


76 Viererbande 

- Vier gewinnt, das Logik-Spiel jetzt auf dem 


78 Kontoauszug auf dem Bildschirm 

- Mit Ihrem PC behalten Sie Ihren Konto¬ 
stand im Auge. 
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Neues aus dem PD-Markt 


Ool: none 

Dir* 77 

f llet 1.395 

Used 25,7«,504 
Free 6.817,792 

— Current Dir — 

r 1 lei 62 

Byte* 7« ,276 
- Tagged - 

Hie« fl 

Bytes fl 

— Tota I Tagged « 

Files fl 

Bytes fl 

- Status — 

Oisks 1 

Conpleted X — 


S.84 


82 


84 

88 


94 


Bäumchen Wechsel dich 

- Wie man sich mit dem COPY-Befehl das 
DOS-Leben erleichert. 

Der Software-Laden 

- Neue PD-Software im Test. 

Transportgeschäfte .... 

- zwischen zwei PCs sind gar nicht schwer. 
Wir zeigen weshalb. 


Aus "E" wird "V" 

- Wie man einem PC 1512 auf die VGA- 
Sprünge hilft. 
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I—Aktuell 


Animation und Aktenschrank 


Illustrationsgrafiken für PCs 
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GRASP heißt ein Animations¬ 
programm, das jetzt in einer 
neuen Version bei der Software 
Connection zu haben ist. 
GRASP steht für Graphic Ani¬ 
mation Simulation for Profes¬ 
sionals. Die Version 3.1 enthält 
folgende Module: 

- GRASP: Editor mit eigener 
Programmiersprache, der auch 
Sound bei Animationen zuläßt. 

- CAP: Ein Schnappschuß-Uti¬ 
lity zum Abspeichern von Bil¬ 
dern aus Fremdprogrammen. 

- PICTOR: Grafik- und Typo¬ 
grafie-Editor. 

- SETIN: Das Druckpro¬ 
gramm. 

- GRASPRT: Das Runtime- 
Modul zur Weitergabe von Ani¬ 
mationen. 

GRASP kann wahlweise auf 
5,25“ oder 3,5“-Diskette erwor¬ 
ben werden und kostet 449,— 
DM (inkl. MwSt.) 


FILEBANK nennt sich ein Da- 
ten-Retrieval-Programm, das 
sich das Prinzip des Akten¬ 
schrankes zu eigen macht. FI¬ 
LEBANK organisiert die Daten 
optisch wie ein Aktenschrank, 
der Benutzer braucht sich dabei 
nicht mehr durch Unterver¬ 
zeichnisse zu wühlen. Dieser 
Schrank besteht aus Schubla¬ 
den, Ordnern und Akten¬ 
deckeln. Ein Suchprogramm 
findet Einträge durch Eingabe 
von Suchworten oder Wort¬ 
bruchstücken. 

FILEBANK gibt es ebenfalls 
wahlweise auf 5,25“ oder 3,5- 
Diskette, der Preis beträgt 
275,- DM (inkl. MwSt). 

Info : Software Connection 
Kienitz + Grabis 
Schulstr. 18 
D-8913 Schondorf 
Tel. : 08192/628 


Wartungsabkommen zwischen Citizen 
und der Anders Service Group 


Citizen Europe, Uxbridge 
(U.K.), viertgrößter Drucker¬ 
hersteller in Europa, hat eine 
Kooperationsvereinbarung mit 
der Anders Service Group abge¬ 
schlossen. 

Ab sofort können die Benutzer 
von Citizen Nadeldruckern das 
Service-Netz von Anders nut¬ 
zen. Serviceleistungen können 
bei der zentralen Anlaufstelle in 
6054 Rodgau abgerufen werden. 
Damit wird neben Amstrad eine 
weitere Firma flächendeckend 


von der Anders Service Group 
betreut. 

Gleichzeitig bezieht Citizen 
neue Büroräume in Neufahrn im 
Norden Münchens. Von dort aus 
wird Citizen die OEM-Produkte 
3,5“-Floppies, LCD-Anzeigen 
und Drucker betreuen. 

Info: Henschel und Stinnes 
Agentur für 

Öffentlichkeitsarbeit GmbH 
Ismaninger Str 52 
D-8000 München 80 
Tel.: 089/474010 


Disketten mit einer reichhalti¬ 
gen Bibliothek mit über 700 
hochauflösenden Illustrations¬ 
grafiken gibt es bei Helga Mora¬ 
wetz Computergrafik zu erwer¬ 
ben. Mit auf der Diskette befin¬ 
det sich der G-Illustrator. 

Diese Disketten eignen sich vor 
allem für die Illustration von 
Vortragsfolien, Schulungsunter¬ 
lagen, Handbüchern, Doku¬ 
mentationen und ähnlichem, das 
durch Zeichnungen unterlegt 
werden soll, und wo der Vortra¬ 
gende jedoch nicht genug Zeit 
hat, sich selbst um die Erstel¬ 
lung dieser Zeichnungen zu 
kümmern. Auf den Disketten 
befinden sich Zeichnungen, 
Symbole und Piktogramme aus 
den verschiedenen Wirtschafts¬ 
und Lebensbereichen, die als 
Einzeldarstellungen abgespei¬ 


chert sind. Damit können Sie di¬ 
rekt in Dokumente des Ventura 
Publishers, des Page Makers 
oder in diverse andere DTP-, 
Text- und Grafikprogramme 
eingelesen werden. Dabei wer¬ 
den das GEM-, das EPS-oder 
PIC-Format unterstützt, die 
Zeichnungen lassen sich aller¬ 
dings auch in GEM- oder MS- 
Windows-Programmen ein- 
setzen. 

Die Disketten (5,25“ oder 3,5“) 
kosten je nach Anzahl der Dar¬ 
stellungen von 45,— DM an auf¬ 
wärts. 

Info: Helga Morawetz 
Computergrafik 
Am Pfennigsberg 3 
D-2150 Buxtehude 
Tel.: 04161/87344 


Buttons’ zum Selbermachen 



Eine Neuheit, die zwar nichts 
direkt mit Computern zu tun 
hat, jedoch auch dort ihren Ein¬ 
satz finden könnte, sind die 
Quick-PIC-Buttons, die uns die 
Werbeagentur Heilgeist aus 
Wolfenbüttel vorstellte. 

Diese Buttons lassen sich mit je¬ 
dem Bild nach Wunsch be¬ 
stücken, zwei leere Papierein¬ 
sätze liegen jedem Button bei. 
Die Bilder können dabei selbst 
erstellt oder aus Zeichnungen 


entnommen sein. Computergra¬ 
fiken sind somit ebenfalls geeig¬ 
net. Die Preise für die Buttons 
liegen von 25,- DM (20 Stück) 
an aufwärts. Interessant dürften 
solche Buttons für Computer¬ 
clubs oder Vereine an sich sein. 


Info : Heilgeist und Partner 
Werbeagentur 
Bahnhofstr. 9a 
D-3340 Wolfenbüttel 
Tel. : 05331/46075 
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VESUV - Der Universal-EPROMer 


Festplattenlaufwerk für den CPC 
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Von Roßmöller gibt es einen 
neuen EPROM-Brenner namens 
VESUV, der an fast jeden Com¬ 
puter anzuschließen ist, so an 
den PC, Aniiga, Atari ST und 
C64. Die entsprechende Soft¬ 
ware wird mitgeliefert. 

Der EPROMer brennt die be¬ 
kanntesten EPROM-Typen, an¬ 
gelangen bei den 2732-(4-kByte) 
bis zu den 27011-(l-MByte) Ty¬ 
pen. Der EPROMer wird beim 
PC über den Parallelport ange¬ 


steuert, die Software ist voll me¬ 
nügesteuert und zeigt sämtliche 
Operationen wie Einlesen, 
Schreiben, Leertest, etc. an. 

Der VESUV-EPROMmer ist zu 
einem Preis von 249,- DM zu 
beziehen. 

Info: Roßmöller Handshake 
Martin Roßmöller 
Am neuen Markt 21 
5309 Meckenheim 
Tel.: 02225 /2061-62 


Btx unter Windows 
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BTX-FENESTRA 
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Für Btx-Teilnehmer, die das Sy¬ 
stem auf ihrem Rechner unter 
Windows nutzen wollen, das 
zum Beispiel auf den Amstrad 
PCs der 2XXX-Reihe installiert 
werden kann, gibt es jetzt eine 
neue Btx-Software namens ’Fe- 
nestra’ von RAFI. 

Die Software arbeitet mit dem 
RAFI-Btx-Decoder zusammen. 
Die Vorteile von Windows tref¬ 
fen nun auch auf Btx zu, so ist es 
auch möglich, mehrere Pro¬ 


gramme gleichzeitig ablaufen zu 
lassen (Multitasking). Ferner 
können unter MS-Write Mittei¬ 
lungen geschrieben und über 
den Mitteilungsdienst ver¬ 
schickt werden. 

’Fenestra' kostet 840,- DM. 

Info: RAFI GmbH&CO. 
Elektrotechnische 
Spezial fahr ik 
Postfach 2060 
D-7980 Ravensburg 


Festplattenlaufwerke hatten bis 
jetzt ihren festen Platz in der 
PC-Weit. Jetzt allerdings drin¬ 
gen sogar die Amstrad CPCs in 
diese Domäne vor, dank der Fir¬ 
ma Dobbertin aus Brühl. Bei 
dieser Firma wird nämlich dem¬ 
nächst eine 20-MByte-Harddisk 
(formatierte Kapazität) erhält¬ 
lich sein, anschlußfertig an die 
CPCs 464/664/6128. 

Der Zugriff auf die Platte kann 
dabei sowohl unter BASIC als 
auch unter CP/M erfolgen. Für 
den CP/M-Betrieb benötigt man 
allerdings einen CPC mit min¬ 
destens 128 kByte Hauptspei¬ 
cher (CPC 6128 oder 464/664 
mit mindestens 64 kByte Spei¬ 
chererweiterung). Die Einbin¬ 
dung von BASIC geschieht 
durch ein erweitertes XDDOS. 
durch das auch ein 2*80-Track- 
Zweitlaufwerk mit einer Kapa¬ 
zität von 720 kByte unterstützt 
wird. Das XDDOS verfügt über 
einen erweiterten Befehlssatz, 
der auf die Laufwerke, auf die 
eventuell vorhandene RAM-Er- 


weiterung und auf die vier Parti¬ 
tionen der Festplatte anwendbar 
ist. 

Hier die Möglichkeiten der 
Harddisk: 

— Vier Partitionen mit jeweils 5 
MByte als Laufwerke D: bis G:. 

— 512 Directory-Einträge pro 
Partition unter BASIC und 
CP/M möglich. 

— Das 63-kByte-CP/M der 
Dobbertin RAM-Disk kann ein¬ 
gebunden werden. 

— Die Festplatte besitzt eine 
sehr hohe Zugriffsgeschwindig¬ 
keit. 

— Der Controller und die Platte 
sind handelsübliche XT-Bau- 
steine und können nach einem 
Systemwechsel weiterverwendet 
werden. 

Der Preis für diese Festplatte 
wird bei zirka 1100,— DM 
liegen. 

Info: Dobbertin 
Industrie-Elektronik GmbH 
Brahmsstr. 9 
D-6835 Brühl 
Tel.: 06202 /71417 




Bücherecke 


PUTER 
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SELBSTPROGRAMMIERT 

FISCHER jg l 0 G 0 


Taschen¬ 
wörterbuch 
für die praktische 
Büroautomation 

deutsch - englisch encusch - deutsch 


PftHEONTOT-VTSUC 


JACQUES 


Mehrere interessante Bücher 
über Computer und deren Um¬ 
feld sind von einigen Verlagen 
jetzt neu zu beziehen. 

Computerdenkspiele selbst 
programmiert von Jaques Ar- 
sac gibt einen guten Hinter¬ 
grund für das Selbstprogram¬ 
mieren von Spielen auf Compu¬ 
tern. Der Autor stellt dabei 
Spiele mit und ohne Strategie¬ 
elemente in seinem Buch vor. 
Gleichzeitig gibt er Hilfestellun¬ 
gen bei bestimmten Problemen, 
die Lösungswege befinden sich 
erst am Ende des Buches, da der 
Leser hierbei sich voll auf seine 
Fähigkeiten verlassen soll. Das 


Buch ist im Fischer Taschen¬ 
buch Verlag erschienen (ISBN 
3-596-28708-1) 

Taschenwörterbuch für die 
praktische Büroautomation / 
deutsch — englisch / englisch 
— deutsch von Peter Heller¬ 
mann ist ein praktischer Helfer 
für diejenigen, die sich mit Aus¬ 
drücken und Begriffen in der 
EDV schwertun. Hier werden 
alle Begriffe aus Computer- und 
Bürowelt in entsprechende Wör¬ 
ter der anderen Sprache umge¬ 
setzt. Das Taschenwörterbuch 
ist im DATA KO N TEXT-Ve r 1 ag 
erschienen (ISBN 3-89 
209-001-7) 
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I—Briefe 


An unsere Leser 

Die Rubrik »Leserbriefe« ist 
eine Einrichtung für alle Le¬ 
ser, die in irgendeiner Form 
Fragen, Probleme oder Anre¬ 
gungen zu Produkten, Pro- 
grammierproblemen oder zu 
unserer Zeitschrift haben. 
Selbstverständlich sind wir 
bemüht, alle Leserfragen zu 
beantworten. Doch haben 
Sie bitte Verständnis, daß wir 
nicht alle eingehenden Briefe 
persönlich beantworten kön¬ 
nen. Oft erreichen uns meh¬ 
rere Briefe zum gleichen 
Thema, einer davon wird 
dann stellvertretend für alle 
in unserer Zeitschrift beant- 


Neue Durchwahfnummern 
für die Hotline 

Für eilige Anfragen können Sie 
jetzt Ihren Redakteur direkt er¬ 
reichen. Jeden Mittwoch von 
17.00 bis 20.00 Uhr stehen ih¬ 
nen zur Verfügung: 

Claus Daschner (CPC) 

»(0 56 51)80 09 -16 

Jürgen Borngießer 
(CPC + PC) 

»(0 56 51)80 09 -17 

Ralf Schößler (PCW) 

»(0 56 51) 80 09 -18 


ihre PC-Redaktion 



PS: Die Redaktion behält sich vc 
Form wiederzugeben. 

>r, Leserzuschriften in gekürzter 




dBase und NLQ 401 

Bei der Durchsicht der PC 
Amstrad 4/89 stieß ich auf 
eine Anfrage bezüglich des 
Ausdrucks von Dateien mit 
dBase II auf dem Drucker 
NLQ 401. 

Der Hinweis auf das Hand¬ 
buch zu dBase II ist berech¬ 
tigt, denn auf Seite 18 (Ta¬ 
stenübersicht) befindet sich 
die Anleitung EINBL- 
Drucker ein/aus. 

Mit der Einblendungstaste 
läßt sich der Drucker tat¬ 
sächlich ein- und ausschal¬ 
ten, was ich seit Monaten mit 
allen Aufstellungen prakti¬ 
ziere. Außerdem kann der 
Drucker mit TO PRINT, 
Z.B.: REPORT FORM Um¬ 
satz TO PRINT, ebenfalls in 
Betrieb genommen werden. 

Rudolf Fiala 
Ranshofen 

Korrektur zum BPC 
(SH7/88) 

In der PC International 3/89 
hat Herr Vetter darauf hin¬ 
gewiesen, daß mein BASIC- 
Programmcode-Kompressor 
Sonderheft 7/88 bestimmte 
Situationen nicht korrekt er¬ 
kennt und verarbeitet. Zu¬ 
sätzlich zu den von Herrn 
Vetter gefundenen Fehlern 
kann es in sehr seltenen Fäl¬ 
len zu Komplikationen im 
Zusammenhang mit DATA- 


Zeilen-Blöcken kommen. 
Hier ist eine kleine Verände- 
rttng bzw. Ergänzung der 
DATA-Lader des BPC, mit 
der sich das Programm nun 
in allen diesen Fällen richtig 
verhält. Dazu werden ins 
Hauptprogramm zwei Sprün¬ 
ge auf neue Mini-Routinen 
eingefügt, die vor dem ei¬ 
gentlichen Programm in den 
Speicher geladen (ge ’poke ’t) 
werden. 

Die Korrektur gilt für die 
DATA-Lader des CPC 464 / 
664 und 6128 in gleicher 
Weise. Achten Sie beim Ab¬ 
tippen bitte auf die Einhal¬ 
tung der Zeilennummern und 
darauf, daß die 'alte’ Zeile 
1130 durch die entsprechen- 


stings ersetzt wird. Laden Sie 
also am besten 'Ihren ’ BPC, 
und tippen Sie dann die Kor¬ 
rektur exakt so ab, wie sie 
abgedruckt ist. 

1130 IF flag=0 THEN flag=l: 
CALL HIMEM+1: zl! =16+13: MEMO 
RY HIMEM-zl!:REST0RE 1132:G 
0T0 1080 [4420] 

1132 DATA FE,28,CA,FA*01,F6 
,01,FE,F5,CA,FA*01,1B,C3,FA 
*01 [2553] 

1134 DATA FE,8C,F5,00,61*04 
,Fl,C4,EA*04,C3,19*03 [2106] 

1136 zl! =HIMEM+l+l6+13+&233 
:ad!=HIMEM-+1:POKEzl!,&C3:P 
OKE zl!+l,UNT(ad!) AND 255: 
P0KE zl 1+2, INT (ad 1/256) 

[6426] 


1138 zl!=HIMEM+l+l6+13+&306 
:ad! =HIMEM+l+l6:POKE zl!,&C3: 
P0KE zl!+l,UNT(ad!) AND 255: 
POKE zl 1+2, INT (ad 1/256) 

Marek Musial 

Berlin 

Vielen Dank für die schnelle 
Hilfe. 

(Red.) 

Laufwerkelei 

Da Ihre Leserbriefseite zu¬ 
nehmend zu einem Forum für 
’Leidensgenossen ’ wird, 
möchte ich mich hiermit an 
diejenigen wenden, die, ähn¬ 
lich wie ich, ohne große 
Kenntnisse in die PC-Weit 
aufgestiegen sind. Mit einem 
PC 1512 SD/MM anfangend, 
stellt man schnell fest, daß 
zwei Diskettenlaufwerke 
doch ganz angenehm wären. 
Ist das zweite installiert, 
folgt möglicherweise noch 
eine Filecard, um das System 
zu komplettieren. Der Hard¬ 
ware-Einbau ist erledigt, die 
Überraschung folgt auf dem 
Fuße: 

Weder MS-DOS, DOSplus, 
geschweige denn GEM er¬ 
kennen das Laufwerk B:. Mit 
der Filecard gibt es dazu 
noch verschärfte Schwierig¬ 
keiten, allerdings nur mit 
GEM. Wenn den Laufwerken 
keine weitere Erklärung bei¬ 
lag, sitzt man erst mal da und 
weiß nicht weiter. Um ande¬ 
ren PC-Nutzem meinen 
Frust zu ersparen, hier nun 
eine Anpassung der ’ zustän¬ 
digen Dateien ’, damit Lauf¬ 
werk B: bzw. C: auch er- 


ist sicher nicht die elegante¬ 
ste, aber sie funktioniert. 

1.) Das zweite Laufwerk 
a) Anpassung für MS-DOS 
und DOSplus: 

MS-DOS booten, System- 
Diskette 3 in Laufwerk A: 
einlegen und das Programm 
NVR.EXE auf rufen, Menü¬ 
punkt “Anzahl der Disk- 
Laufwerke“ auswählen (im 
PC-Handbuch un verständli¬ 
cherweise nicht erwähnt!!) 
und Anzahl auf 2 ändern, 
Menü verlassen, Änderung 
im NVR sichern, fertig. 

Bei einem Neustart mit 


'ALT’+ 'CTRL ’+ 'DEL' 
wird das neue Laufwerk als 
B: erkannt. 

b) Zusätzliche Anpassung für 
GEM: 

MS-DOS booten, System- 
Diskette 2 in A: einlegen und 
System-Diskette 3 ins (neue) 
Laufwerk B: und folgenden 
Befehl eingeben: 

COPYA: \ A UTO \ TWO- 
DISKS. INF B: \ 
GEMDESK\ DESK¬ 
TOP. INF 

Mit RETURN abschließen, 
fertig. Wenn jetzt GEM gela¬ 
den wird, ist auch das zweite 
Laufwerk als Icon vorhanden 
und damit ansprechbar. 

2) Die Filecard ' 

Annahme für das folgende 
ist, daß auf der Festplatte 
(Laufwerk C.j nur eine MS- 
DOS-Partition eingerichtet 
wurde und GEM (auf DOS- 
plus-Basis) weiterhin von 
Diskette gestartet werden 
soll. Die Filecard wird nach 
ihrem Einbau und der an¬ 
schließenden Formatierung 
und Konfigurierung sofort 
von MS-DOS und DOSplus 
erkannt. Nur GEM stellt sich 
stur und kopiert bei her¬ 
kömmlichem Start sogar fre¬ 
cherweise die Datei GEM- 
START. BA T auf die Festplat¬ 
te. Der Starrsinn wird fol¬ 
gendermaßen gebrochen: 
MS-DOS booten, System- 
Diskette I ins Laufwerk A: 
und Systemdisk 2 in B: legen, 
danach den folgenden Befehl 
ein geben: 

EDLIN B:A UTOEXEC. BA T 

Die Datei kann mit der Ein¬ 
gabe L < RETURN > nach 
dem EDLIN-Prompt geli¬ 
stet werden). 

Die AUTOEXEC.BAT wird 
nun mit Hilfe des Zeilenedi¬ 
tors EDLIN etwas verändert, 
und zwar wird immer dort, 
wo in der Original-AUTO¬ 
EXEC.BAT ein ’C:’ steht, 
dieses gegen ein ’D: ’ ausge¬ 
tauscht. Nach dieser Opera¬ 
tion wird EDLIN mit ’E’ 
<RETURN> verlassen, da¬ 
mit die Änderungen abge¬ 
speichert werden. Die Ur¬ 
sprungsdatei bleibt als 
A UTOEXEC.BAK erhalten. 


de Zeile des Korrekturli- kannt werden. Meine Lösung 
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Als zweiter Schritt wird nun 
noch die Datei DESK¬ 
TOP. INF (die seit der An¬ 
passung an den Ausbau mit 
zwei Laufwerken der Datei 
TWODISKS. INF entspricht) 
ein wenig geändert. In Lauf¬ 
werk B: wird nun die System¬ 
disk 3 eingelegt, anschlie¬ 
ßend folgendes ein gegeben: 
EDLIN B: \ GEMDESK \ 
DESKTOP. INF 
Mit ’L ’ kann die Datei wie¬ 
der gelistet werden. In Zeile 
5 (# MOOOOOOFF C RAM 
DISK @ (a)) wird das ’C’ ge¬ 
gen ein D' ausgetauscht und 
anschließend nach dieser 
Zeile eine neue Zeile einge¬ 
fügt, die folgendes enthält : 

# MOOOOOOFF C HARD 
DISK @ @ 

Nun wird EDLIN wieder mit 
’E’ verlassen, DESK¬ 
TOP. INF wird neu abgespei¬ 
chert, die alte DESKTOP be¬ 
findet sich mit der Endung 
.BAK auf Disk. Wenn GEM 
nun in ’herkömmlicher ’ Art 
gestartet wird, erscheint die 
Filecard als Icon mit der Be¬ 
zeichnung C:, und die RAM- 
Disk hat den Buchstaben D:. 
Damit ist die Anpassung ab¬ 
geschlossen. 

Thomas Kusen 
Köln 

Zwar ist schon mehrmals auf 
dieses Thema eingegangen 
worden, allerdings zeigen 
uns immer wieder Leserbrie¬ 
fe, daß es Schwierigkeiten 
bei der Installation einer 
Festplatte, Filecard oder ei¬ 
nes Laufwerkes unter GEM 
auf dem PC 1512/1640 gibt. 
Deshalb haben wir diesen et¬ 
was längeren Brief mit abge¬ 
druckt, damit Leser, die sich 
in der gleichen Situation be¬ 
finden, daraus die gesuchten 
Informationen schöpfen kön¬ 
nen. (Beim 1640 trifft die 
DOSplus-Information natür¬ 
lich nicht zu, da dieses Sy¬ 
stem hier nicht mehr mit aus¬ 
geliefert wurde.) 

Deshalb auch hier noch ein¬ 
mal unseren Dank an Herrn 
Kusen und alle Leserbrief¬ 
schreiber, die damit ihren 
’ Computerkollegen ’ den 

Einstieg erleichtern. 

(Red.) 


Strort- 

Uersorgung 



♦12U GNO CNO *50 

Bl ickrichtung auf 
Kontakte 



Ansicht auf 
Steckleiste 


Abb.2 



^7 


PINl 


<-C=} 


1) Das oben eingezeichnete 
Netzwerk nufl in den 
freien IC-Sockel einge¬ 
setzt werden. 



2) Es miß darauf geachtet 
werden,daß der Hasse¬ 
stecker auf der Rückseite 
des Gerätes aufgesteckt 
ist, da es sonst zu Stö¬ 
rungen koimen kann. 

3) Der Junper auf Steckplatz 
1 muH in Stellung DSl,die 
beiden auf Steckplatz 2 
in Stellung A und 0. 


Alle Widerstände haben den Wert 150 OhM! 


Diese Abbildungen zeigen den Anschluß der REMEX-Floppy an den CPC. 
Diese Informationen wurden uns freundlichenveise von unserem Leser 
Wolfgang Marquardt zur Verfiigung gestellt 


Hilfe zur REMEX-Floppy 

Seit längerer Zeit benutze ich 
das Laufwerk RFD 480 von 
REMEX ohne Probleme an 
meinem CPC 6128. Damit 
auch Herr Huck dieses wirk¬ 
lich preiswerte Laufwerk 
(68,- DM) nutzen kann, sind 
die folgenden Maßnahmen 
notwendig: 

Stromversorgung 

Für das LW ist ein Netzteil 
mit +12 Volt/ 2 Ampere und 
+5 Volt/ 2 Ampere erforder¬ 
lich. Der Floppy-Stecker 
wird wie in Abb.l belegt. 


2. ) Anschluß am Computer 
Das LW hat einen Shugart- 
Bus. Zur Verbindung von LW 
und CPC braucht man: 

Im Flachbandkabel 34pol. 

I Centronics-Stecker 
36pol. (Schneid/Klemm) 

1 Platinenstecker 34pol. 

Das Kabel wird nach Abb.2 
hergestellt. 

3. ) Nutzung des zweiten 
Schreib-/ Lesekopfes 

Mit Einbau eines Umschal¬ 
ters können beide Disketten¬ 
seiten genutzt werden, ohne 
die Disk zu entnehmen. Die 
Front platte des LW bietet ge¬ 


nügend Platz, um den Schal¬ 
ter (und eventuell eine 
Leuchtdiode) unterzubrin¬ 
gen. Der Schalter wird wie in 
Abb.3 angeschlossen. 

Der Anschluß des Schalters 
an PIN 32 geschieht direkt 
hinter dem Platinenstecker, 
indem der Schutzlack von der 
entsprechenden Leiterbahn 
etwas abgekratzt wird und 
ein Draht vorsichtig angelö¬ 
tet wird (kurze Lötzeit!!) 

Die Schaltung mit Leucht¬ 
diode kann gegebenenfalls 
entfallen, dann sollte der 
Schalter (in diesem Falle 
reicht ein Ein/Aus-Schalter) 
mit “A“ und “B “ gekenn¬ 
zeichnet werden. 

4.) Position der 'Jumper' 
Für die Position der Steck¬ 
brücken (Jumper) habe ich 
eine beigefügte Information 
über ein Widerstandsnetz¬ 
werk erhalten, welches als 
Steckbrückenersatz auf einen 
freien IC-Sockel gesteckt 
werden soll (Abb.4). Weitere 
technische Unterlagen, wie 
Stromlaufplan oder sonstige 
LW-Daten, stehen mir leider 
auch nicht zur Verfügung. 
Trotzdem sollte es mit den 
genannten Hinweisen kein 
Problem mehr sein, das 
Laufwerk am CPC zu be¬ 
treiben. 

Wolfgang Marquardt 
Oberasbach 


Wer ein REMEX-Laufwerk 
besitzt und Schwierigkeiten 
beim Anschluß hat, wird 
wohl mit den Abbildungen 
Hilfe erhalten. Wir bedan¬ 
ken uns bei Herrn Marquardt 
im Namen aller REMEX-Be- 
sitzer. 

(Red.) 


Text-Editor de Luxe 

Da es einige CP/M-Pro- 
gramme wie zum Beispiel 
den Text-Editor de Luxe gibt, 
welche sowohl auf dem CPC 
als auch auf dem JOYCE 
PCW lauffähig sind, habe 
ich ein Ladeprogramm ge¬ 
schrieben, welches mit klei¬ 
nen Änderungen bei allen 
Programmen läuft. Es muß 
lediglich in das entsprechen¬ 
de Programm eingebunden 
werden. In der aktuellen 
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Fassung läuft es mit dem 
Texteditor zusammen und be¬ 
rücksichtigt auch die Check¬ 
summen, welche bei dem 
veröffentlichten Lader nicht 
berücksichtigt wurden: 

10 OPEN "OM,“TEXT:COM“ 

20 DEFINT a-z 
30 z=1000 
40 READ a$,cs$ 

50WHILE a$< >“*“ 

60 FOR t=lto LEN(a$)/2 
70 b=VAL(“&H“+MID$(a$, 
t*2-l,2)) 

80 c#=c#+b*t 
90 PRINT #l,CHR$(b); 

100 NEXT t 

110 IF c# < >VAL(cs$) 

THEN PRINT:PRINT:PRINT 
“Fehler in Zeile : “; z :STOP 
120 PRINT z; 

130 c # =0 
140 READ a$,cs$ 

150 z=z+10 
160 WEND 
170 CLOSE 
180 END 

Emmanuel Roche 
Troyes 


UNI-RSX 

In der vorliegenden Version 
des Programms UNI-RSX 
(Ausgabe 5/89) ist nur die 
Möglichkeit gegeben, einen 
Hintergrund zu verwalten. 
Um jedoch mehrere verwal¬ 
ten zu können, muß an 
Adresse &A1I3 die Lage des 
neuen Speichers angegeben 
werden. Angenommen, der 
Hintergrundspeicher soll ab 
Adresse &9000 liegen, so 
wird die Adresse &A113 das 
Low-Byte, hier &00, und an 
Adresse &AI14 das High- 
Byte &90geschrieben. 

Sollen mehrere Sprites ge¬ 
nutzt werden, so muß die 
Hintergrundadresse eines je¬ 
den separat gespeichert 
werden. 

Heiko Petersen 
Mohrkirch 


Programme verstecken 

Ich habe mir einen Trick aus¬ 
gedacht, um selbstgeschrie¬ 
bene Programme vor Kopien 
zu schützen! 

Bitte schreiben Sie einmal 
folgendes Programm: 

10 CLS 

20 PRINT"DIES IST EIN PR0GR 
AMM“, 


30 GOTO 20 

Um dieses Programm zu 
schützen, geben Sie folgen¬ 
des ein: 

1 P0KE 368+PEEK(368) ,00:0N 

BREAK G0SUB 65535 

65535 P0KE 368+PEEK(368), 0: 

END 

PRINT PEEK(368+PEEK (368)) : 

END 

Lassen Sie sich nun eine Zahl 
ausgeben, welche Sie dann 
in Zeile I anstelle von 00 hin¬ 
ter das Komma schreiben. 
Geben Sie nun 
POKE368+peek(368),0 
ein, sind alle Zeilen bis auf 
die erste versteckt. POKE 
370,0 läßt aber auch diese 
verschwinden. Speichern Sie 
nun noch Ihre Programme 
mit 5/4 VE “NA ME “ ,p ab, 
kann so gut wie keiner mehr 
an Ihr Programm heran¬ 
kommen. 

Thomas Jansen 
Dortmund 


DIN A4 - Querformat 

Ich besitze einen Drucker 
DMP 3000, den ich mit mei¬ 
nem PC 1512 betreibe. 
Hauptsächlich arbeite ich 
mit den Textverarbeitungs¬ 
programmen Ist Word Plus 
und Textomat. Gelegentlich 
besteht bei mir der Bedarf, 
mit meiner Geräteausstat¬ 
tung im Querformat DIN A4 
auszudrucken. Leider konnte 
ich dies bisher noch nicht be¬ 
werkstelligen. Können Sie 
mir vielleicht sagen, wie dies 
funktioniert ? 

Reinhard Golks 
Camberley 

Da bei uns dieses Problem 
noch nicht aufgetreten ist, 
können wir Ihnen leider 
nicht behilflich sein. Um Ih¬ 
nen weiterhelfen zu können, 
möchten wir diese Frage an 
unsere Leser weiterleiten. 


Wenn ich in einem Pro¬ 
gramm eine Menge vom Typ 
INTEGER definieren will, so 
zeigt der Computer immer 
wieder dieselbe Fehlermel¬ 
dung, daß der Grundmen¬ 
gentyp außerhalb des zuläs¬ 
sigen Bereiches ist, an. 

Im Gegensatz hierzu steht die 
Aussage meines Pascal- 
Handbuches, daß der 
Grundmengentyp INTEGER 
neben CH AR und BO OLE AN 
zulässig ist. Hierzu ein klei¬ 
nes Beispielprogramm: 

program menge; 

type menge = set of integer; 

var a: menge; 

begin 

a:=[l,2,3,4]; 

end. 

Der Computer compiliert bis 
zur dritten Zeile, und es folgt 
die oben genannte Fehler¬ 
meldung. Ändere ich jetzt 
INTEGER in CHAR und set¬ 
ze statt der Zahlen die Buch¬ 
staben a,b,c,d ein, so compi¬ 
liert der Computer ohne Feh¬ 
lermeldungen. 

Warum nimmt der Computer 
INTEGER nicht an, obwohl 
es im Handbuch ausdrück¬ 
lich so dargelegt ist? Liegt 
dies an der Version 3.0 oder 
an sonstigen Programmfeh¬ 
lern? 

Dieter Gödeke 
Marburg 


Das Problem ist nicht etwa in 
dem Programm, sondern in 
der Größe Ihres Speichers zu 
suchen. Der Computer reser¬ 
viert für jede Variable einen 
entsprechenden Speicherbe¬ 
reich. Da dieser Bereich, den 
er belegen will, im 
INTEGER-Format sehr groß 
ist, sind die Speicherberei¬ 
che schnell ausgereizt. Dies 
ist nicht nur bei Ihrem CPC 
sondern auch bei PCs so. 


Red. 

Probleme mit Turbo 
Pascal 

Ich arbeite mit einem CPC 
6128 und lerne im Moment 
Turbo Pascal. Mein Problem 
hierbei ist folgendes: 


Verkleinern Sie nun den Be¬ 
reich mit TYPE menge = 
0. .x; so funktioniert das Pro¬ 
gramm ohne Probleme. Für 
x können Werte im Bereich 
von 0 bis 255 eingegeben 
werden. 

Red. 


Funktionszeichner 3’89 

In oben genanntem Pro¬ 
gramm kommt es häufig vor, 
daß die Grafik aus dem Bild 
rollt, wenn der Cursor den 
unteren Bildschirmrand 
überschreitet. Dies kann 
durch das Ersetzen des Aus¬ 
drucks hinter ELSE in fol¬ 
genden Zeilen behoben 
werden: 

2890 . .. ELSE L0CATE 80,VP0 

S( # 0) :G0T0 2860 

2900 . .. ELSE L0CATE 1,VP0S 

(#0):G0T0 2860 

2910 .. . ELSE L0CATE P0S( #0) 

,25: GOTO 2860 

2920 ... ELSE L0CATE POS 

(#0),1:GOTO 2860 

Carsten Mannei 

Recklinghausen 

Farbbandauffrischung? 

Als Besitzer eines CPC 6128 
mit dem Drucker DMP 3000 
verfolgte ich mit Interesse 
die verschiedenen Tips in der 
PC Amstrad, mit Hilfe von 
nachträglich an den Drucker 
angebrachten Nachtränkkis¬ 
sen die Lebensdauer der 
Farbbänder zu erhöhen. 
Nach dem Öffnen einer ’ er¬ 
schöpften ' Farbbandkassette 
stellte ich fest, daß solch eine 
Nachtränkeinrichtung be¬ 
reits fest in die Kassette ein¬ 
gebaut ist. Doch reicht bei 
normaler Textausgabe die 
damit erzielte Auffrischung 
nicht aus. Wenn man den 
Drucker zwischendurch im 
“ Leerlauf“ arbeiten läßt, 
wird die Lebensdauer des 
Farbbandes erheblich er¬ 
höht. 

Nachfolgendes kurzes 

BASIC-Prognnnm versetzt 
den Drucker in den Grafik¬ 
modus und druckt Leerzeilen 
ohne Zeilenvorschub. Nach 
Ablauf der frei wählbaren 
Auffrischungszeit wird so¬ 
wohl am Computer als auch 
am Drucker ein Reset durch¬ 
geführt — und das Farbband 
ist fast wieder wie neu! 

20 MODE 2: INPUT"Gib Auffri¬ 
schungszeit in Minuten ein “ 
;fzeit 

30 azeit=TIME:ezeit=fzeit* 

1 8000+azeit 

40 WIDTH 255: PRINT # 8, CHR$ 

(2 7)+“K"+CHR$(0); 

50 WHILE TIME<ezeit 
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60 PRINT# 8,CHR$(27)+“K“+ 

CHR$(127)+CHR$(2); 

70 FOR n=l To 639:PRINT#8, 
CHR$(27)+"@“; :CALL 0 

Werner Lischka 
Regensburg 


CP/M-Schalter am 
CPC 664 

Der in Ausgabe 2/88, Seite 
61, beschriebene Einbau des 
CP/M-Schalters ist auch 
beim CPC 664 möglich. 

Die entsprechende Brücke ist 
hier nicht mit LK7, sondern 
mit LK201 bezeichnet und 
befindet sich an der Rücksei¬ 
te, direkt rechts neben dem 
mittleren Schraubensockel. 
Allerdings ist bei geöffnetem 
Schalter die DATA-ME- 
DIA-Speichererweiterung 
nicht mehr ansprechbar! 

Helmut Swaczinna 
Oederquart 

Fehler in Australien 

Beim Spiel ’Tabak und Ban¬ 
diten (Australien) ’ aus Heft 
5/89 kam es bei einigen CPC 
464 zu der Ausgabe eines 
Zeichens im Spielfeld, das je¬ 
doch nirgendwo in den Pro¬ 
grammzeilen auftauchte. 
Diesen Fehler kann man je¬ 
doch leicht beheben. Der 
BASIC-Interpreter des CPC 
464 übergibt beim CLS-Be- 
fehl das Steuerzeichen 12 
(Formfeed, Bildschirm bzw. 
aktuelles Window löschen) 
an die Betriebssystem-Routi¬ 
ne für die Textausgabe. Falls 
jedoch zu diesem Zeitpunkt 
die Textausgabe auf Grafik¬ 
koordinaten eingeschaltet ist 
(nach TAG), wird dieses 
Steuerzeichen nicht ausge¬ 
führt, sondern als Textzei¬ 
chen an den aktuellen Gra¬ 
fikkoordinaten angezeigt. 
Hierbei handelt es sich na¬ 
türlich genau um den Pfeil, 
der im Spielfeld erscheint. 
Der Fehler läßt sich beseiti¬ 
gen, wenn vor den CLS-Be- 
fehlen TAGOFFsteht. In Zei¬ 
le 1170 (Beginn von Land 
kaufen) stehen die Befehle je¬ 
doch in umgekehrter Reihen¬ 
folge (CLS: TAGOFF). 

Ein Vertauschen eliminiert 
den Fehler zumindest an die¬ 
ser Stelle sofort! 

Matthias Uphoff 
Witten 


Vereinsverwaltung SH7 

In der Ausgabe 5/89 fragten 
Sie nach den Variablen, die 
bei der ersten Anlage der 
Dateien benötigt werden. Ich 
vermute, daß Sie damit Hilfs¬ 
dateien anlegen wollen. 

Die erforderlichen Variablen 
stehen in den Sicherungsrou¬ 
tinen der Zeilen 2600 bis 
2860 des Hauptprogramms. 
Das Problem läßt sich je¬ 
doch leichter lösen, indem 
man beim ersten Buchen die 
Ladebefehle überspringt. 
Dies geschieht durch Einfü¬ 
gen der Zeile 615 
q3 = l:q4: = l. 

Dabei handelt es sich um die 
Steuerungsvariablen, die 
beim Wert I das Laden über¬ 
gehen. Nun kann eine Test¬ 
buchung — natürlich 0 DM 
— eingegeben werden, die 
das Verfahren ordnungsge¬ 
mäß sichert. Leider ist dann 
aber die erste Buchungsnum¬ 
mer verbraucht. Nach dem 
Programmende muß nun die 
Zeile 615 wieder gelöscht 
werden. 

Nach Auskunft eines Lesers 
ist es vorgekommen, daß bei 
Umbuchungen plötzlich 
Sachkonten angezeigt wer¬ 
den, die er nicht eingegeben 
hatte (die auch das Pro¬ 
gramm bewußt nicht vor¬ 
sieht). Er hatte eine normale 
Buchungseingabe gelöscht 
und mit einer Umbuchung 
überschrieben. Dabei wurde 
das Sachkonto nicht auf 0 ge¬ 
stellt, sondern in den neuen 
Buchungssatz übernommen. 
Da weder Buchungs- noch 
Berechnungsfehler dadurch 
entstehen, hat die Anzeige 
keine schlimmen Folgen, sie 
kann jedoch durch Einfügen 
folgender Zeile verhindert 
werden: 

1255 sg$= u “: se$=““ 

Dafür können dann am Ende 
der Zeile 1300 die Befehle 
sg$= uu :ek$=$= u " 
entfallen. 

Das Sachkonto wird jetzt mit 
“0“ angegeben. 

Eckhard Bergandy 
Rumohr 

Abtippen von Listings 

Beim Abtippen Ihrer Listings 
habe ich des öfteren Schwie¬ 


rigkeiten mit Zeilen, in denen 
etwa folgendes steht: READ 
a%: POKE adr,a%. In die¬ 
ser Zeile gibt er mir öfter 
eine Fehlermeldung aus, ob¬ 
wohl sie richtig abgetippt ist. 
Wie kann das kommen ? 

Gerhard Graw 
Hamburg 

Daß die Fehlermeldung in 
dieser Zeile erscheint, muß 
nicht unbedingt bedeuten, 
daß die Zeile falsch eingege¬ 
ben wurde. Es läßt eher dar¬ 
auf schließen, daß in den 
nachfolgenden DATA-Zei- 
len eine Fehleingabe erfolgt 
ist. 

(Red.) 

Wann kommt das nächste 
CPC- Sonderheft? 

Mit Begeisterung lese ich 
jede neue Ausgabe der PC 
AMSTRAD International, 
auch wenn nicht alle Beiträ¬ 
ge meinen Geschmack tref¬ 
fen. Umso mehr freute ich 
mich über die bisher erschie¬ 
nenen CPC-Sonderhefie, die 
eine wahre Schatztruhe für 
jeden CPC-Besitzer darstell¬ 
ten. Doch seit Sonderheft 7 
ist nun schon eine geraume 
Zeit ins Land gegangen, 
ohne daß ein Nachfolgeheft 
in Sicht ist. Wird es die Son¬ 
derhefte nicht mehr geben ? 

Peter Walkuscheidt 
Hamburg 

Nachdem so viele Anfragen 
in bezug auf das nächste 
CPC- Sonderheft bei uns in 
der Redaktion eingegangen 
sind, bleibt uns ja gar nichts 
anderes übrig, als ein neues 
zu produzieren. Also, hier 
zu Kurzinformation: Das 
CPC- Sonderheft 8 wird bald 
im Zeitschriftenhandel zu 
finden sein, der Erschei¬ 
nungstermin steht zwar noch 
nicht fest, die Beiträge aber 
schon. Der genaue Termin 
wird auf der Leserbriefseite 
noch bekanntgegeben. 

(Red.) 


Fehler in der Video-Ver¬ 
waltung 

Ich habe festgestellt, daß 
versehentlich die Bedie¬ 


nungsanleitung der nicht 
korrigierten Version ab ge¬ 
druckt worden ist. Damit 
hier nun keine Mißverständ¬ 
nisse auf Seiten der Leser 
auftreten, hier die Korrektur 
zu Video- Verwaltung: 

1) In Zeile 4260 verändern: 
GOTO 2580 in GOTO 2560 

2) Das Programm muß so 
gestartet werden: 

a) Diskette mit VIDEO.BAS 
und VIDE02.PGM einlegen. 

b) ’RUN “VIDEO 
eingeben. 

c) Wenn Fehlermeldung 
'VIDEO.DAT NOT FOUND ’ 
erscheint, eingeben: 

GOTO 1300. 

d) Wenn 'ENDE' erscheint, 

Computer zurücksetzen, da¬ 
nach kann man mit der Ver¬ 
waltung beginnen. 

3) Im abgedruckten Pro¬ 
gramm ist statt des Feldes Jur 
den Zählerstand ein Feld für 
den Darsteller eingesetzt. 
Bei neuen Videogeräten kann 
nämlich der Zählerstand ein¬ 
fach über die Länge ausge¬ 
rechnet werden, da keine 
Zahl von 0000-9999 gezählt 
wird, sondern die ab gelaufe¬ 
ne Spielzeit des Filmes. 

4) Der Titel darf maximal 
65, der Darsteller maximal 
41, die Länge maximal 14 
und das Genre maximal 22 
Buchstaben haben. 

5) Sollen mehr als 150 Vi¬ 
deokassetten archiviert wer¬ 
den, so ist die Variable ’max- 
cas’ in Zeile 180 zu verän¬ 
dern. 

6) Damit sich Herr Duden 
nicht ärgert: 

In Zeile 3670 und 3690 sollte 
es heißen: ’Bitte korri¬ 
gieren. !) ’ 

Marc Roßkopf 
Cloppenburg 

Wir bedauern die Fehler, die 
in der Video-Verwaltung 
aufgetaucht sind, und bedan¬ 
ken uns gleichzeitig bei 
Herrn Roßkopf, der schnell 
für die Berichtigung sorgte. 

(Red.) 
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AMS-Line - 

der direkte Draht zur Firma AMSTRAD 

Wie jeden Monat die aktuellsten Informationen von AMSTRAD. 


Externe Laufwerke am PC2x86 -The 
never ending story ... 

Da zu diesem Punkt nach wie vor viele An¬ 
fragen kommen, hier nochmals die voll¬ 
ständige Vorgehens weise: 

Die Anschlüsse für das Laufwerk liegen an 
der rechten Seite der Systemeinheit. Vor 
dem Anschließen des Laufwerks schalten 
Sie Ihr Gerät aus. Stecken Sie den 
4-poligen DIN-Stecker in die mit STROM¬ 
VERSORGUNG bezeichnete Buchse. Be¬ 
festigen Sie den “Centronics“-Stecker an 
der mit LAUFWERKSSIGNALE bezeich¬ 
nten Buchse. Bringen Sie den mit 
INT/EXT bezeichnten Schalter neben den 
Buchsen in die Stellung EXT. Schalten Sie 
Ihr Gerät an und laden MS-DOS. 

Die Einstellung auf das externe Laufwerk 
erfolgt beim PC2086 über das DEVICE- 
Programin. 

Die Voreinstellung der Geräte für das ex¬ 
terne Laufwerk ist: 

720 kßyte, 3,5 Zoll, mit Change line. 

Zur Einrichtung eines 5.25-Zoll-Lauf- 
werks mit 360 kByte lautet der Aufruf: 
DEVICE SETFD /D:I /T:0 
Zur Einrichtung eines 3,5-Zoll-Laufwerks 
mit l ,44 MByte lautet der Aufruf: 
DEVICE SETFD /D:l /T:2 
Nähere Informationen über das DEVICE- 
Progranun entnehmen Sie bitte dem Benut¬ 
zerhandbuch Ihres PCs (Seite 3-28). 

Um die Änderung zu aktivieren, muß der 
Computer neu gebootet werden. Aus die¬ 
sem Grund erfolgt die Abfrage, ob Sie den 
Computer neu starten wollen oder nicht. 
Wird hier mit N(ein) geantwortet, so muß 
zu einem späteren Zeitpunkt das System 
mit (Strg) 4- (Alt) + (Entf) zurückgesetzt 
werden. 

Nach dem Neustart können Sie die korrekte 
Übernahme der Parameter überprüfen, in¬ 
dem Sie DEVICE ohne zusätzliche Para¬ 
meter aufrufen; Sie erhalten eine Liste der 
Systcmeinstellungen. in dem auch Lauf¬ 
werk B aufgeführt ist. 

Beim PC2286 bzw. PC2386 wird die Ein¬ 
stellung der Laufwerks-Parameter über das 
Programm SETUP vorgenommen. 

Nach dem Aufruf des Programms erscheint 
eine Liste der CMOS RAM PARAME¬ 
TERS, in der auch die Einstellung für Lauf¬ 
werk B (Drive B:) eingetragen ist. Um Än¬ 


derungen vorzunehmen, setzen Sie den 
Balkencursor auf Drive B: und drücken die 
RETURN-Taste. Im folgenden Menü kön¬ 
nen Sie ebenfalls mit Cursor und RETURN 
den gewünschten Laufwerkstyp einstellen. 

Nach dem Verlassen des SETUP mit der 
ESC-Taste wird wie beim PC2086 der 
Computer neu gestartet. 

Beim PC2086 kann unter der Einstellung 
auf 720 kByte auch das externe 1,2-MByte- 
Laufwerk angesprochen werden: Es ist al¬ 
lerdings nur Schreiben und Lesen möglich; 
es können keine Disketten formatiert 
werden!!! 

Belegung der Laufwerksbuchse 
Für die Bastler unter Ihnen bietet sich auch 
die Möglichkeit, ein anderes externes Lauf¬ 
werk an die Geräte der PC2x86-Serie anzu¬ 
schließen. 

Da wir keinen Wert auf Geheimhaltung le¬ 
gen hier die Belegung der oben angespro¬ 
chenen Buchsen: 

Spannungsversorgung (Aufsicht): 
oben rechts und links: Masse 
unten links: +12 V 
unten rechts: +5 V 

Laufwerkssignale: 

1-17 Masse 

18 frei 

19 Disk Change 

20 frei 

21 frei 

22 Index 

23 Drive Select 0 

24 Drive Select 1 

25 frei 

26 Motor On 

27 Direction 

28 Step 

29 Write Data 

30 Write Gate 

31 Track 0 

32 Write Protect 

33 Read Data 

34 Side Select 

35 Ready 

36 Masse 

Schulungskurse zweites Halbjahr 1989 
Bei Ihrem Händler finden Sie jetzt wieder 
die neuen Unterlagen zu unseren Schulun¬ 
gen. Das Angebot ist etwas erweitert wor- 
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den, um auch bei den neuen Geräten den 
Einstieg zu erleichtern, 

Proti-Sensations-Paket: Lotus und 
AMSTRAD 

Seit kurzem bieten wir ein neues Paket an: 
Den PC2086 mit Drucker und dem inter- 
grierten Software-Paket Lotus Symphony. 
Je nach Wunsch bekommen Sie verschiede¬ 
ne Ausführungen der Geräte: Vom PC2086 
mit einem Laufwerk und Monochrom-Mo¬ 
nitor bis zum Gerät mit Festplatte und 
14-Zoll-High-Rcsolution-Farbmonitor; als 
Drucker können Sie wahlweise die 
9-Nadel-Drucker DMP3160 oder 
DMP4000 (mit Breitwagen) oder den 
24-Nadel-Drucker LQ3500 erhalten. Zur 
Software: Lotus Symphony ist ein inte¬ 
griertes Softwarepaket, das fünf Funktio¬ 
nen beinhaltet -Textverarbeitung, Daten¬ 
bank. Tabcllcnkalkulation, Grafik und 
Kommunikation. Die Tabellenkalkulation 
bietet die Möglichkeit, Daten mit Lotus 
1-2-3 auszutauschen. Alle Funktionen sind 
von einer einheitlichen Oberfläche aus an¬ 
zusprechen. Daten können problemlos zwi¬ 
schen den einzelnen Funktionen ausge¬ 
tauscht werden: Sie schreiben Ihre Texte, 
übernehmen Daten aus der Datenbank oder 
TabeLlenkalkulation, stellen die Ergebnisse 
grafisch dar und übertragen den fertigen 
Text anschließend über Modem an ... Ach, 
Ihre Schwiegermutter hat noch kein Mo¬ 
dem??! Na, ja! Ausdrucken lassen sich die 
Texte und Grafiken natürlich auch; es 
bleibt also immer noch der Postweg. 
Sowohl für den professionellen als auch für 
den “anspruchsvollen” Privatanwender ist 
dieses Paket ideal: Ein schneller Einstieg, 
aber leicht ausbaubar durch die Symphony 
Befehlssprache. 

MS-DOS Version 4 

Die Geräte der Reihen PC2386 und 
PC2286 werden mit der MS-DOS-Version 
4 ausgeliefert. Dabei handelt es sich um die 
Version 4.01, auch wenn zum Teil noch auf 
den Disketten die Aufschrift 4.0 oder 4.00 
zu finden ist. Amstrad hat in der Version 
4.01 einen Felder gefunden, der beim Le¬ 
sen der Daten von der Festplatte auftreten 
kann: Es wird die Fehlermeldung “Sector 
Not Found“ ausgegeben. Microsoft wurde 
über den Fehler informiert und hat der Feh¬ 
lerbeseitigung durch Amstrad zugestimmt. 
Die Amstrad-interne Versionsnummer lau¬ 
tet jetzt 4.011, die offizielle Versionsnum¬ 
mer kann jedoch nur von Microsoft selbst 
geändert werden. 


Ihre 
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Die Service-Ecke 

Der AMSTRAD- und ANDERS-Service 

Die ANDERS SERVICE GROUP - im Dienste der AMSTRAD-Kun- 
den-Service hat in der ANDERS-Gruppe eine lange Tradition. Bereits in 
den 20er Jahren gründete die Familie ANDERS erste Werkstätten und Ge¬ 
schäftsstellen für technische Dienstleistungen. Einer der größten Hersteller 
von Zeiterfassungsgeräten (z.B. Stempeluhren) arbeitet bereits seit Jahr¬ 
zehnten mit dem ANDERS-Service zusammen. Da diese Geräte sich außer¬ 
ordentlich lange im Einsatz bewähren, muß auch heute noch Mechanik ge¬ 
wartet werden. Dafür steht ANDERS ein— zum Vorteil des Kunden. 


Die technologische Entwicklung setzte 
allerdings insbesondere in den 60er 
und 70er Jahren völlig neue Akzente: 
In dem Maße, wie der Computer Ein¬ 
zug in Büros und industrielle Fertigung 
hielt, stieg auch das Servicebedürfnis. 
Das anfängliche Familienuntemehmen 
hatte sich längst zu einem bundeswei¬ 
ten, flächendeckenden Netz mit Stütz¬ 
punkten und Geschäftsstellen ent¬ 
wickelt. 

14 Geschäftsstellen mit drei großen 
Servicezentren machten die ANDERS- 
Gruppe zu einem, wenn nicht gar dem 
führenden neutralen Wartungsanbieter 
unter den sogenannten Drittwartern. 
Der Grund ist schnell erklärt: Übli¬ 
cherweise kommt keine Herstellerfir¬ 
ma ohne Garantie- oder Reparaturlei¬ 
stungen auf den deutschen Markt. 
Dazu ist sie sogar verpflichtet. Für die 
Unternehmen bedeutet dies nun, all das 
unter Umständen kurzfristig im Ge¬ 
samtmarkt aufzubauen, was beispiels¬ 
weise bei der ANDERS-Gruppe sich in 
Jahrzehnten entwickelt hat. Dieser 
Aufwand an Vorkosten geht von vorn¬ 
herein in Millionenhöhe, man denke 
nur allein an Löhne/Gehälter, Ersatz¬ 
teillager, Fuhrpark, Ausbildung von 
Technikern etc. Die Hersteller haben 
in der Vergangenheit diese Vor- und 
Folgekosten durchweg in die Preise ih¬ 
rer Produkte hineinkalkuliert. Nicht so 
AMSTRAD! Hier war bereits zum 
Markteintritt — nach gründlicher Prü¬ 
fung aller Alternativen — klar, den Ge¬ 
rätepreis nicht um den Faktor “Servi¬ 
ce“ zu belasten. Aus dieser Erkenntnis, 
mit der sich AMSTRAD als eines der 
ersten Unternehmen mit der Markt¬ 
entwicklung der ANDERS-Gruppe auf 
gleicher Wellenlänge befand, wurde 
zwischen beiden Firmen eine neuarti¬ 
ge, kundengerechte und -freundliche 
Konzeption entwickelt. Die Vorteile 
für den Verbraucher setzten — und set¬ 
zen! — bis heute die Maßstäbe. 


Zunächst gibt es das Gründungsunter¬ 
nehmen, die heutige ANDERS SERVI¬ 
CE Gesellschaft mbH (mit Sitz in Stutt¬ 
gart). Aus dieser entwickelte sich in 
den vergangenen Jahren — mit alleini¬ 
gem Schwerpunkt Elektronikprodukte 
— die im AMSTRAD-Umfeld inzwi¬ 
schen bekannte ANDERS COMPU¬ 
TER SERVICE GmbH & Co.KG (mit 
Sitz in Rodgau). Parallel dazu entste¬ 
hen derzeit in einigen anderen europä¬ 
ischen Ländern, zum Beispiel in Öster¬ 
reich, weitere Landesgesellschaften. 
All das umschließt die ANDERS SER¬ 
VICE GROUP - mit dem eingangs er¬ 
wähnten Servicenetz. 

Für das, was bei AMSTRAD-Kunden 
im Unterschied zu vielen reinen Indu¬ 
striekundenprodukten und strukturbe¬ 
dingt im Vordergrund steht, hat das so¬ 
genannte ANDERS-Repair-Center in 
Rodgau eine ganz besondere Bedeu¬ 
tung. In Ergänzung zu den zwei großen 
Einsatzzentralen Stuttgart (Süd) und 
Düsseldorf (Nord) — von wo die Tech¬ 
niker bundesweit überwiegend zu den 
Kundenbetrieben disponiert werden - 
dient das Repair-Center vornehmlich 
als zentrales Herz für alle AMSTRAD- 
Geräte, die eingesandt werden, sei es 
für Umbauten, Aufrüstungen oder Be¬ 
hebung von Fehlern. Auch das soll ja 
durchaus einmal Vorkommen, wie bei 
allen Gebrauchsgegenständen. In der 
Leitung des Repair-Centers werden, in 
ständiger Abstimmung mit der zentra¬ 
len Kundendienstleitung und AM¬ 
STRAD, Verbesserungs Vorschläge 
aufgegriffen oder entwickelt, Kunden¬ 
wünsche respektiert, neue Produkte 
gecheckt und servicemäßig trainiert. 
Ein durchaus wünschenswerter Zufall 
ist die räumliche Nachbarschaft der 
Standorte im Raum Frankfurt: AM¬ 
STRAD in Neu-Isenburg, ANDERS in 
Rodgau —nur wenige Kilometer aus¬ 
einander. Das heißt “kurze Wege“ in 
Ersatzteil fragen, dazu regelmäßige 
Meetings, wenn es um neue Ideen für 


eine noch bessere Kundendienstquali¬ 
tät geht. Das ist um so wichtiger, als 
speziell die AN DERS-SERVICE- 
GROUP sich strukturkontinuierlich an 
die Bedürfnisse und Erwartungen des 
AMSTRAD-Kundenkreises anpassen 
muß. Durch den ständigen Service in 
Verwaltung, Handel, Dienstleistung, 
in der Großindustrie, in multinationa¬ 
len Unternehmen ist die Erfahrung im 
Umgang mit “Mensch und Gerät“ ge¬ 
reift. Man hat es schließlich im Einzel¬ 
fall gerade zum Beispiel mit dem PC zu 
tun, der seinem Besitzer besonders ans 
Herz gewachsen ist. Das muß der 
Techniker respektieren, vertraut ihm 
doch der Kunden sein Gerät an. Und 
der erwartet - zu Recht — eine sach¬ 
gerechte, kostengünstige Arbeit zu fai¬ 
ren Preisen. Das setzt eine Menge Ver¬ 
trauen beider Seiten ineinander voraus. 

Gerade hier zeigt sich eine andere Stär¬ 
ke der ANDERS-Gruppe: die Kommu¬ 
nikationsfähigkeit. Kaum zu glauben, 
aber der Umgang mit dem Kunden 
wird systematisch geübt und verbes¬ 
sert. Nach außen hin wird in erster Li¬ 
nie durch den ANDERS-Service in den 
Medien Verbraucherinformation be¬ 
trieben, denn kaum ein sogenannter 
Endkunde weiß um Serviceangelegen¬ 
heiten Bescheid. Und leider tritt der 
Servicefall bekanntlich fast immer 
kurzfristig und völlig unpassend ein, 
oder? 

Für diesen Moment, den sich niemand 
ernsthaft wünscht, muß der Kunde vor¬ 
bereitet, sprich informiert sein. Und 
das ist ein gemeinsames Anliegen von 
AMSTRAD und ANDERS. 
Weiterführende Informationen zum 
Thema Service gibt es zukünftig über 
die Pressestelle der ANDERS-Gruppe. 
Hier die Anschrift für Interessierte: 
Pressestelle der ANDERS SERVICE 
GROUP, Europe z.IId. Herrn Ulrich 
Büker, Am Schwimmbad 4a, D-6752 
Winnweiler/Pfaiz 

Für den akuten Wartungsfall nachste¬ 
hend noch einmal die Anschriften. 


ANDERS Service Zentrale 
REPAIR-CENTER Nord Süd 
Münsterstr. 114, 4000 Düsseldorf 
Tel. 0211/463008 

Etzelstraße 22, 7000 Stuttgart 1 
Tel. 0711/602264 

Klöcknerstrasse 3, 6054 Rodgau 3 
Tel. 06106/74011 


(Ulrich Büker/cd) 
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I—Bericht 


Vom Drehen, Speichern und Lesen 

Die Entstehungsgeschichte eines Speichermediums 


Nicht nur die Programmierung der Floppy , sondern auch ihre Geschichte ist ein interessantes Thema. 

Wie entwickelte sich die Diskette aus dem Lochstreifen , und wie sehen die Datenspeicher der neuen Gene¬ 
ration aus? Diese Fragen wollen wir Ihnen an dieser Stelle beantworten. Außerdem wollen wir ein bißchen 
Physik betreiben und Ihnen erklären , wie die Daten auf die Diskette 
kommen. Denn jeder ’Floppyist’ sollte auch ein wenig über 
seine Hardware Bescheid wissen. 


Vom Reader und Puncher 
zum CD-ROM und 
Giga-Streamer 

Beginnen wir mit einem heute schon 
fast museumsreifen Lesegerät, nämlich 
mit dem Lochstreifen. Man nehme ei¬ 
nen Papierstreifen, einen druckerähnli¬ 
chen Traktor, eine Lampe und acht 
Photozellen — und schon haben wir ein 
Lochstreifenlesegerät, einen soge¬ 
nannten ’Reader’. Die Informationen 
sind auf dem Papierstreifen in Form 
von Löchern gespeichert. Bei jedem 
Papiervorschub wird eine neue Loch¬ 
reihe, die in der Regel aus acht Zeilen 
besteht und somit ein Byte repräsen¬ 
tiert, über die Photozellen geführt. 
Fällt nun das Licht der Lampe durch 
ein Loch, so wird an der Photozelle 
eine Spannung registriert. Dies bedeu¬ 
tet dann, daß das entsprechende Bit ge¬ 
setzt ist (siehe auch Abb. 1). 

Vergleichbar arbeitet der Lochstreifen¬ 
stanzer. Hierbei werden je nach Bitzu¬ 
stand (gesetzt/gelöscht) Löcher in das 



Papier gestanzt. 

Noch etwas zur Kapa¬ 
zität: Um die gleiche Anzahl von Daten 
zu speichern, die auf eine 3“-Diskette 
gehen, würde man einen 700 Meter (!) 
langen Streifen benötigen. Die Auf¬ 
zeichnungsrate liegt zwischen 8 und 80 
Zeichen/Minute (3 “-Disk: 250000 
Bit/Sekunde = 1875000 Zeichen/Mi¬ 
nute). 

Wie Sie sehen, ist das Arbeiten mit 
Lochstreifen sehr zeitaufwendig und 
umständlich, deshalb ging man dazu 
über, den Kassettenrekorder als Spei¬ 
chermedium zu nützen. Anfänglich 
wurde mit dem Zweispursystem gear- 
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Abb.l: Das Lochstreifen-Lesegerät war lange wichtigstes Speichermedium für 
Programme. 


beitet, das uns allen durch das Stereo- 
Tapedeck bekannt ist. Dabei wurden 
zum Beispiel auf Kanal 1 alle gesetzten 
Bits (1) und auf Kanal 2 alle nichtge¬ 
setzten Bits (0) aufgezeichnet (siehe 
Abb. 2). 

Heute ist man jedoch auf ein anderes 
Verfahren mit tonmodulierten Signalen 
umgestiegen. Das funktioniert so: Die 
Bits in einem Byte werden als Folgen 
von Tönen, wie in Abbildung 3 darge¬ 
stellt, aufgezeichnet, zum Beispiel eine 
1 als Ton mit einer Frequenz von 2000 
Hz und eine 0 als 1000-Hz-Ton. 

Beim Kassettenbetrieb werden die Da¬ 
ten oft zweimal abgespeichert (redun¬ 
dante Aufzeichnung), um Bandfehlern 
besser begegnen zu können (siehe 
Abb. 4). 

Die Entwicklung ist jedoch nicht ste¬ 
hengeblieben, da die Kassette den 
Nachteil hat, daß Daten nur sequentiell 
gespeichert werden können. Man kann 
also auf die gewünschten Daten nicht 
direkt zugreifen, sondern muß sämtli¬ 
che vorangehenden Daten mit einiesen. 
Dies vermindert natürlich die Ge¬ 
schwindigkeit eines Programmes 
enorm. 
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lerdings für den Heimgebrauch noch 
nicht erschwinglich sind. Auch hat sich 
die Speicherkapazität in den Jahren von 
anfänglich zirka 180 kByte auf 2.0 
MByte, ja schon 10 MByte erhöht. 
1976 hat die Firma Shugart - ja, genau 
die mit dem Shugart-Bus - die 5 1/4“- 
Disk eingeführt und standardisiert. 
Heute beginnt sich die 3 l/2“-Diskette 
durchzusetzen, da sie kleiner und 
durch ihre Plastikhülle unempfindli¬ 
cher ist. 



Dieses Manko wurde durch die Einfüh¬ 
rung der Diskette behoben. Begonnen 
hat es im wesentlichen, als IBM in den 
späten 60er Jahren die 8“-Disk 
steht hier als Abkürzung für Zoll, die 
Maßeinheit, in der Diskettengrößen 
hergestellt werden) auf den Markt 
brachte. Seitdem geht die Miniaturisie¬ 
rung auf diesem Gebiet immer weiter, 
so daß es heute schon 2 l/2“-Disketten 
(kein Witz!!) mit 64 kByte gibt, die al- 


Nicht vergessen 
wollen wir die Festplatten¬ 
laufwerke, die es heute mit einer Spei¬ 
cherkapazität von 5 bis 150 MByte 
gibt. Ähnlich der Diskette besteht die 
Speicherplatte einer Harddisk aus einer 
magnetischen Oxydschicht, auf der die 
Daten mit Hilfe einer Spule (Schreib-/ 
Lesekopi) bitweise aufgezeichnet wer¬ 
den. Die Harddisk ist eines der schnell¬ 
sten externen Speichergeräte, hat je¬ 
doch den Nachteil, daß ihr Speicher¬ 
platz zwar gigantisch, aber dennoch 
begrenzt ist. 20-MByte-Harddisks sind 
heute schon für unter 800 DM zu be¬ 
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Abb.2: Bei der Kassette gab es mehrere Aufzeichnungsmöglichkeiten, einmal das Zwei- 
Spur-Verfahren... 


kommen und sind auch im privaten Be¬ 
reich schon häufiger anzutreffen als 
früher. Trotzdem können sie das Flop- 
py-Laufwerk nicht ersetzen, oder 
möchten Sie Ihre Software demnächst 
im stabilen Tragekarton mit nach Hau¬ 
se nehmen? 

Für 400 DM bekommt man ein 1.44 
MByte fähiges 3 1/2”-Laufwerk und 
für 69 DM zehn High-Density-Disket- 
ten dazu. Den häufigen Diskettenwech- 
sel muß man dann jedoch in Kauf neh¬ 
men. 

Spätestens nachdem die erste Diskette 
mit wichtigen Daten sich nur noch mit 
Laufwerksgeklapper und dazugehören¬ 
dem ’READ ERROR’ meldet oder die 
Festplatte sich den Kopf angeschlagen 
hat (sogenannter ’Headcrash’), beginnt 
man, sich Gedanken über “Backups“, 
also Sicherheitskopien seiner Program¬ 
me und Daten, zu machen. Bisher wur¬ 
den dazu Bandlaufwerke eingesetzt, 
die die Bytes ähnlich dem Kassettenre¬ 
korder analog speichern. Das Problem 
dieser Laufwerke ist ihre geringe Ka¬ 
pazität, ihre geringe Geschwindigkeit 
und die schlechten Chancen bei der 
Fehlerkorrektur. Die hohe Beanspru¬ 
chung der Bänder läßt die Frage nach 
wirklicher Sicherheit noch immer of¬ 
fen. Doch Lichtblicke auf dem Gebiet 
des Backups lassen die neuen Giga- 
Tape-Streamer erkennen. DAT (Digi¬ 
tal Audio Tape)-Kassetten ersetzen die 
herkömmlichen Bandkassetten. Die di¬ 
gitale Aufzeichnung der Daten ermög¬ 
licht umfangreiche und wirkungsvolle 
Fehlererkennungs- und Fehlerkorrek¬ 
turverfahren. Mehrere auf einer rotieren¬ 
den Trommel angeordnete Schreib-/ 
Leseköpfe ermöglichen eine Kapazität 
von mehr als einem Gigabyte (1000 
MByte) pro DAT-Kassette und hohe 
Aufzeichnungsgeschwindigkeiten. 
Aufgrund einer neuen Bandführung ist 
die Beanspruchung der DAT-Bänder 
um vieles geringer als die der her¬ 
kömmlichen Tape-Streamer. Da die 
Preise der Giga-Streamer jedoch noch 
im 5stelligen Bereich liegen, bleiben 
ihre Vorteile dem “kleinen“ Anwender 
wohl noch verschlossen. 

Zukunft... 


Wagen wir einen kleinen Blick auf die 
Massenspeicher der Zukunft. Bereits 
im Einsatz, jedoch noch nicht weit ver¬ 
breitet, ist das CD-ROM. Der Daten¬ 
träger ist dabei eine normale Compact- 
Disc, wie wir sie von den Musik-CDs 
her kennen. Auch das Lesegerät unter¬ 
scheidet sich nicht weiter vom CD- 
Player. Die digital aufgezeichneten 
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Daten werden mittels Lasertechnik von 
der Platte geholt. Vorteile des CD- 
ROMs sind die hohe Lesegeschwindig¬ 
keit und der einfache direkte Datenzu¬ 
griff. Die große Kapazität (zirka 800 
MByte) läßt sich daran erkennen, daß 
man schon ganze Lexika auf eine CD 
gebannt hat. 

Der große Nachteil des CD-ROMs ver¬ 
rät schon der Name. Die CD ist ein 
Read-Only-Memory, das heißt, der 
Anwender kann Daten von der CD nur 
lesen. Beschrieben werden kann die 
CD nur im Labor. Man muß sich also 
darauf beschränken, fertige Program¬ 
me auf CD zu kaufen. Sollte jedoch das 
CD-Lesegerät demnächst sowohl für 
den Computer als auch für den Musik¬ 
genuß eingesetzt werden können, 
könnte dies die Beliebtheit des CD- 
ROMs steigern. 

Ein Kompromiß zwischen der CD und 
einer Harddisk ist die 1987 von IBM 
entwickelte optische Speicherplatte 
WORM. WORM bedeutet Write 
Once/Read Multiple (bedeutet sinnge¬ 
mäß: einmaliges Beschreiben/ mehr¬ 
maliges Lesen). IBM benutzt hierfür 
eine 'normale’ 5 1/4“-Diskette. Diese 
befindet sich jedoch in einer Plastikhül¬ 
le, wie sie bei den 3,5“-Disks verwen¬ 
det wird. Die Aufzeichnung geschieht 
dadurch, daß mit einem Laser hoher 
Leistung die Bits in die Platte gebrannt 


werden. Beim Lesen werden die Bits 
dann von einem Laser mit geringerer 
Leistung wieder abgetastet. Dies geht 
deshalb, weil die Platte im unbeschrie¬ 
benen Zustand nur eine schwach re¬ 
flektierende Oberfläche hat. Beim Ein¬ 
brennen wird die Oberfläche dann re¬ 
flektierend gemacht. Die WORM-Plat- 
te hat eine Kapazität von 200 MByte 
(einseitig) bis 800 MByte (doppelsei¬ 
tig). Die neueste Entwicklung ist die 
Videoplatte auf Laserbasis. Sie birgt 
dieselben Vorteile wie das CD-ROM 
und hebt noch dessen Nachteile auf. 
Auf der Videoplatte kann der Anwen¬ 
der auch selbst mehrmals Daten spei¬ 
chern. Allerdings sind die Preise für 
den Normalanwender momentan noch 
zu hoch, doch in diesem Bereich wird 
sich aufgrund des Konkurrenzdruckes 
sicherlich bald etwas bewegen. 

Die Technik der Floppy 

Nach soviel Geschichte wollen wir 
jetzt die technischen Details der Floppy 
unter die Lupe nehmen. Hierzu ist ein 
Einstieg in die klassische Physik not¬ 
wendig. Wie Sie alle wissen, werden 
die Daten auf der Diskette, ähnlich wie 
beim Kassettenrekorder, magnetisch 
gespeichert. Der Unterschied besteht 
jedoch in der Art der Magnetisierung. 
Wird zum Beispiel beim Abspeichern 


auf die Kassette darauf geachtet, daß 
der Klirrfaktor, also der Grad der Ma¬ 
gnetisierung möglichst klein ist, wird 
bei der Floppy versucht, einen Klirr¬ 
faktor von 100% zu erreichen, um 
beim späteren Lesen keinen READ 
ERROR zu erhalten. Diese Magneti¬ 
sierung wird mittels des Schreib-/ Le¬ 
sekopfes bewerkstelligt, welcher aus 
einer Spule besteht. 

Wie aus der Physik bekannt sein sollte, 
erzeugt eine an die Spule angelegte 
Wechselspannung ein Magnetfeld. 
Dieses Phänomen ist auch umkehrbar, 
das heißt, ein sich wechselndes Ma¬ 
gnetfeld erzeugt eine Wechselspan¬ 
nung. Genau diese Vorgänge finden 
auch bei der Floppy Verwendung. Will 
man ein Bit aufeeichnen, so wird eine 
Wechselspannung an den Schreibkopf 
(siehe Abbildung 5) angelegt, und die 
Oxydschicht der Diskette wird von ei¬ 
nem Magnetfeld durchsetzt, was eine 
Ausrichtung der ’Elementarmagnet- 
chen’ auf der Oxydschicht zur Folge 
hat (Abb. 6 und 7). Das so entstandene 
Magnetfeld wird beim Lesen vom Le¬ 
sekopf überfahren, und erzeugt an der 
Spule eine Spannung, die dann von der 
entsprechenden Hardware ausgewertet 
werden kann. 

Die verschiedenen 
Aufzeichnungsarten 

Das FM-Format — Single Density 

Bei dieser Aufzeichnungsart (Frequen- 
cy Modulation) wird mit den Daten ein 
Systemtakt aufgezeichnet. Mit dessen 
Hilfe ist es möglich, die Länge eines 
Bits zu bestimmen. Den Wert (0/1) des 
Bits speichert man nun einfach zwi¬ 
schen dem Systemtakt ab (siehe Abb. 
8). Diese Liste wird nun über ein Flip- 
Flop (eine elektronische Schaltung, die 
High- oder Low-Signale aufnehmen 
und kurzzeitig speichern kann) an den 
Schreibkopf ausgegeben. Hierbei än¬ 
dert sich die Polarität des Magnetfeldes 
bei jeder Flanke in der Liste infolge des 
Flip-Flops (siehe Abb. 9). 

Der große Nachteil des FM-Formats 
ist, daß zu jedem Bit noch der feste Sy¬ 
stemtakt mit aufgezeichnet werden 
muß und sich somit die Anzahl der 
Flußwechsel (Änderung der Polarität 
des Magnetfeldes) verdoppelt. Dies hat 
zur Folge, daß die Diskette nur zur 
Hälfte ausgelastet ist. Im Klartext heißt 
das, daß Sie auf einer 3“-Diskette pro 
Seite nur 125000 Bytes zur Verfügung 
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Der Datenkopf besteht im Prinzip aus einem Rundeisen, 
das über eine Spule magnetisiert wird. Die am Spalt 
austretenden Feldlinien richten die Eiementarmagneten auf 
der Plattenoberfläche aus. Je kleiner die Spaltbreite und 
|e geringer die Flughöhe, um so dichter lassen sich Bits 
auf dem Speichermedium anordnen. 


Abb.5: Bei einer Diskette sieht die Datenaufzeichnung schon ganz anders aus. 


haben. Dies berechnet sich folgender¬ 
maßen: 

— Aufzeichnungsrate für 1 Byte: 

8 Bit * 8 fis = 64 ß s/Byte 

- Laufwerksgeschwindigkeit: 

300 UPM = 200ms/ Umdrechung 
= > (40 Spuren * 200ms)/ 

64^s/Byte = 125000 Byte/Seite 

Vorteilhaft hingegen ist, daß nur zwei 
verschiedene Zeiten auftreten, die 
leicht zu unterscheiden sind. 

Das MFM-Format - Double Density 

Hierbei handelt es sich um eine Ver¬ 
besserung des FM-Formats (MFM = 
Modified Frequency Modulation), bei 
welchem versucht wird, auf den Sy¬ 
stemtakt weitestgehend zu verzichten. 
Die Einer-Bits werden nach wie vor 
durch einen Flußwechsel angezeigt. 
Neu ist die Art der Aufzeichnung von 
0-Bits. Kommen mehrere Null-Bits 
nacheinander, so wird für diese der Sy¬ 
stemtakt aufgezeichnet (siehe hierzu 
Abb. 10). Allerdings muß nun zwi¬ 
schen drei verschiedenen Zeiten unter¬ 
schieden werden, was eine komplizier¬ 
tere Technik voraussetzt. Durch diese 
Aufzeichnungsart läßt sich die Daten¬ 
dichte auf der Diskette verdoppeln. 
Dieses Format findet auch in Hirem 
CPC Verwendung und stellt Ihnen eine 
unformatierte Kapazität von 250000 
Byte zur Verfügung. Warum Sie nur 
zirka 180 kByte benutzen können, wer¬ 
den wir später erklären. 

Das RLL-Format — Run length limit 
(Lauflängenbegrenzung) 

Diese Aufzeichnungsmethode unter¬ 
scheidet sich ganz wesentlich von den 
beiden vorangegangenen, bei denen 
eine 1 immer als eine 1 und eine 0 im¬ 


mer als eine 0 aufgezeichnet wird. 
Beim RLL-Verfahren wird jedoch eine 
Folge von Datenbits in einen neuen 
Code mit variabler Länge übersetzt, 
um die Anzahl der Flußwechsel zu sen¬ 
ken. Hierbei werden zwischen zwei Ei¬ 
ner-Bits immer mindestens zwei oder 
höchstens sieben Null-Bits gebracht, 
um mit wenigen Flußwechseln auszu¬ 
kommen. Einen Vergleich der drei Sy¬ 
steme sehen Sie in Abbildung 11. Das 
RLL-Verfahren bringt im Vergleich 
zum MFM-Format eine Reduzierung 
der Flußwechsel um den Faktor 0.66. 
Allerdings werden durch die Umset¬ 
zung doppelt so viele Bits für die Daten 
notwendig, so daß am Ende eine Mehr¬ 
kapazität von 50% zur Verfügung 
steht. Nachteilig ist, daß das RLL-Ver¬ 
fahren technisch noch aufwendiger als 
das MFM-Format ist, da die Informa¬ 
tionen verschiedene Längen haben 
können. 

Nachdem wir nun die drei Aufzeich¬ 
nungsverfahren erläutert haben, wol¬ 


len wir uns dem Aufbau einer Floppy 
widmen und erklären, wie sie im CPC 
eingesetzt wird. 

Technische Details der Diskette 

Eine Diskette gliedert sich in folgende 
Abschnitte (siehe Abb. 12): 

1. Spuren: 

Üblich sind 40 oder 80 Spuren/ Seite, 
welche in konzentrischen Kreisen, von 
außen (Spur 0) nach innen (Spur 39 
bzw. 79) angeordnet sind. Somit erge¬ 
ben sich mit dem MFM-Format Kapa¬ 
zitäten von 250 kByte bis 2.00 MByte 
(unformatiert). 

2. Sektoren: 

Die nächste Unterteilung findet in Sek¬ 
toren statt, welche aus den Kreisen 
Stücke, wie vom Kuchen bekannt, aus- 
schneiden. Früher war die Anzahl und 
die Größe der Sektoren meist durch die 
Diskette schon festgelegt, da jeder Sek¬ 
tor sein eigenes Indexloch hatte (Hard- 
sectored Disks). Man ist aber dazu 
übergegangen, dem Anwender freizu¬ 
stellen, wie viele Sektoren und welche 
Sektorgröße er wählen möchte (Soft- 
sectored Disks). 

Die Standardgröße ist jetzt 512 Byte/ 
Sektor, grundsätzlich sind jedoch auch 
alle anderen geradzahligen Vielfachen 
von 128 Byte/Sektor möglich. Die An¬ 
zahl der Sektoren schwankt heute zwi¬ 
schen 8 und 18 Sektoren/Spur. Eine 
kleine Auflistung gängiger Formate 
mit ihren dazugehörigen Kapazitäten 
entnehmen Sie bitte Tabelle 1. 

Dies sind die beiden physikalischen 
Unterteilungsarten, die durch die 
Hardware erzeugt werden. Es gibt je¬ 
doch auch softwareseitige Methoden, 
wie man eine Diskette unterteilen 
kann. Hier wäre zunächst der Block zu 




Abb. 6 und 7 : Ein Elementarmagnet vor und nach dem Ausrichten durch die Spule. 
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Abb. 8: Der Aufbau des FM-Forrmts... 


nennen, der beim Arbeiten mit Dateien 
eine wichtige Rolle spielt, da Files im¬ 
mer in Blöcken abgespeichert werden. 
Bei Ihrem CPC bedeutet dies zum Bei¬ 
spiel, daß die kleinste Datei immer ein 
kByte auf der Diskette beansprucht, da 
im CPC eine Blockgröße von 1024 
Byte verwendet wird. Hieraus folgt, 
daß zwei Sektoren zu einem Block zu¬ 
sammengefaßt werden. Dies hat aber 
keinerlei Auswirkung auf die Forma¬ 
tierung, da es sich ja um eine Softwa¬ 
reeinteilung handelt. Von einer weite¬ 
ren Unterteilung wird im CPC unter 
C/PM Gebrauch gemacht. Dort wer¬ 
den die Sektoren in 4 Records ä 128 
Byte unterteilt. Dies ist durch die Ent¬ 
wicklung von C/PM bedingt, da dieses 
Betriebssystem zu einem Zeitpunkt er¬ 
schaffen wurde, an dem 128 Byte/Sek- 
tor als Standardsektorgröße galten. 
Durch diesen Kniff erhielten sich die 


Entwickler die Möglichkeit, das Be¬ 
triebssystem auch unter anderen Sek¬ 
torgrößen installieren zu können. 

Durch diese softwareseitigen Untertei¬ 
lungen wird der Diskettenspeicherplatz 
jedoch etwas verkleinert. Zu jeder 
Spur und jedem Sektor wird noch seine 
Kennung mit aufgezeichnet, an Hand 
welcher er beim Lesen erkannt wird. 
Ohne diese Einrichtung wäre es sonst 
nicht möglich, den Sektor später wie- 
derzufinden. Einen genauen Spurauf¬ 
bau von 3“-Laufwerken finden Sie in 
PC International 12’88 auf der 
Seite 48. 

Genug der Diskette, kommen wir nun 
zum Laufwerk, der Floppy-Disk-Sta- 
tion. Hier gilt es zuerst einmal, zwi¬ 
schen Einzel- und Doppelkopflaufwer¬ 
ken zu unterscheiden. Einzelkopflauf- 
werke (single-head-drives) kann man 
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Die Qual der Wahl... 

...hat man als Computerbesit¬ 
zer, wenn man für sich selbst ein 
Laufwerk sucht, sei es für den 
CPC, den PCW oder PC. Gera¬ 
de bei diesen drei Computerli¬ 
nien gibt es eine Vielzahl an 
Floppy-Laufwerken aller 
Disketten formate- und Speicher- 
großen. Das Zauberwort heißt 
hier Shugart-Bus. Ob dieser Bus 
Sie zu Ihrem Ziel, nämlich zum 
Besitz einer Diskettenstation, 
bringt, hängt gerade bei den 
Amstrad-Computern nur von 
wenigen Faktoren ab. 

Der Shugart-Bus ist ein standardi¬ 
sierter Anschluß, der für fast alle 
auf auf dem Markt befindlichen 
Laufwerke zutrifft. Viele Firmen 
bieten daher Komplettlösungen an, 
beim CPC sieht dies so aus, daß die 
Floppy gleich mit dazugehören¬ 
dem Controller (dem Bauteil, das 
erst den Betrieb einer Floppy am 
Computer ermöglicht) zu beziehen 
ist. Darunter zählen zum Beispiel 
die original-Amstrad DD1, das X- 
Laufwerk von Dobbertin, die Star¬ 
drive 5,25“-/ 3“-Laufwerkskom¬ 
bination und andere. Als Zweit¬ 
laufwerke gelten grundsätzlich 
Floppies, die ohne eigenen Con¬ 
troller, dafür jedoch anschlußfertig 
an das Erstlaufwerk und dessen 
Controller zu beziehen sind. Und 
hier gibt es weitaus mehr Angebo¬ 
te, als es auf den ersten Blick 
scheint. Nicht nur die Geräte von 
Dobbertin, Frank Strauß Elektro¬ 
nik, G + L, ACW-Soft und diverse 
andere Anbieter sind hier präsent, 
Elektronikfirmen, wie Conrad, 
Bühler, Völkner, haben Rohlauf¬ 
werke mit Shugart-Bus im Sorti¬ 
ment, die schon für einen Bruchteil 
des Preises für eine ’Komplettflop- 
py’ zu erhalten sind. Diese Ange¬ 
bote gelten übrigens auch für JOY- 
CE-(PCW-)Benutzer. Allerdings 
ist man hier als versierter Bastler 
wesentlich im Vorteil, da außer der 
Floppy noch ein Netzteil und di¬ 
verse Anschlußkabel herzustellen 
sind. Auch mit der Einstellung der 
‘Jumper’ (kleine Steckbrücken, die 
elektronische Geräte an die jeweili¬ 
gen Gegebenheiten anpassen) tut 
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sich so mancher ’Ritter des Lötkol¬ 
bens' schwer. Deshalb, und das ist 
ganz wichtig, beim Kauf von Roh- 
floppies daraufachten, daß eine 
richtige Anleitung sowie Schaltplä¬ 
ne mitgeliefert werden können. 

Bei den PCs sieht es im bezug auf 
Laufwerke auch nicht schlecht aus, 
allerdings sind PC-1512/1640- 
Benutzer auf die Amstrad-Lauf- 
werke angewiesen, wenn der Ein¬ 
bau nicht zu einem anstrengenden 
Computeraus-, -ein- und -umbau 
werden soll. Manche PC-Laufwer¬ 
ke, die preiswert zu erhalten sind, 
passen zwar elektronisch an den 
PC, leider sind jedoch die Einbau¬ 
maße problematisch, so daß die 
Aussage “Ich habe mein Laufwerk 
mit der Laubsäge eingebaut!“ lei¬ 
der sehr schnell gültig wird. Das 
Angebot bei den PC-Laufwerken 
reicht vom 5,25“-Laufwerk in¬ 
tern/extern bis zum 3,5“-Pendant, 
so daß wohl jeder 'sein’ Maßlauf¬ 
werk finden sollte. Die neuen Am- 
strad-PCs der 2XXX-Reihe wer¬ 
den auch schon von verschiedenen 
Firmen (natürlich auch von Am- 
strad selbst) mit Laufwerken be¬ 
dacht, so daß auch hier keine Eng¬ 
pässe entstehen. 

Noch ein Wort zu den sogenannten 
AT-Laufwerken: Wie ein Lauffeu¬ 
er gingen die Gerüchte über diese 
Speichergiganten durch die PC- 
Weit. Sie sind auch Giganten, al¬ 
lerdings nur dann, wenn sie am 
entsprechenden Controller ange¬ 
schlossen sind, der als einziger in 
der Lage ist, die hohe Kapazitäts¬ 
menge (1.2 MByte bei 5,25“-, 
1.44 MByte bei 3,5“-Disketten) 
einzurichten. Ein solches High- 
Density-Laufwerk an einem nor¬ 
malen Controller zu betreiben 
(vorhanden im PC 1512/1640) und 
darauf zu hoffen, mehr Speicher¬ 
platz zu erhalten, ist also zwecklos. 

Falls Sie jetzt noch nicht wissen, zu 
welchem Laufwerk Sie sich ent¬ 
schließen sollen, schauen Sie sich 
doch in Ruhe die Anzeigen in die¬ 
sem Heft an, vielleicht 'erwischt’ 
es Sie noch im gleichen Moment, 
und der größte Wunsch heißt nur 
noch “Floppy“. 

Üb) 


wiederum in zwei Kategorien ein¬ 
teilen: 

— Laufwerke, bei denen nur eine Dis¬ 
kettenseite verwendet werden kann 
(z. B. BASF 6106). Allerdings 
kann man durch Anbringen eines 
zweiten Indexloches und eines 
zweiten Schreibschutzloches auch 
die andere Seite nutzbar machen. 

— Laufwerke, bei denen einen Ver¬ 
wendung der zweiten Diskettensei¬ 
te bereits vom Hersteller vorgese¬ 
hen ist, die Diskette muß man je¬ 
doch selbst wenden (z.B. DD1). 

Heute geht man dazu über, nur noch 
Doppelkopflaufwerke (double-head- 
drives) herzustellen, um dem lästigen 


Disketten wenden zu entgehen und die 
gesamte Speicherkapazität der Diskette 
auf einmal zur Verfügung zu haben, da 
die Programme und Daten immer um¬ 
fangreicher und länger werden. 

Gebieter, was befehlest du? 

Es gibt grundsätzlich zwei Methoden, 
wie man ein Laufwerk steuern kann. 
Die kompliziertere Technik ohne FDC 
(= Floppy disc Controller) wollen wir 
hier nicht erklären, da sie beim CPC 
keine Verwendung findet und der 
Großteil der Floppys weitestgehend 
über einen FDC programmiert wird. 
Der FDC stellt die Schnittstelle zwi¬ 
schen der CPU und den Diskettenlauf- 


Die drei Verfahren i». Vergleich. 
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Eigentlich hätte aan das MFM- und das RLL-Verfahren viel dichter zeichnen missen. 
Es wird jedoch auch so ersichtlich, daß die Anzahl der Flußwechsel stetig abnin»t. 


Abb.ll: Eine Gegenüberstellung der drei bekanntesten Formate. 
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Abb. 13: Umsetzung von Datenbits in einem neuen Code mit variabler 
Länge. 



Abb. 12: Der schematische Aufbau einer (formatierten) Diskette. 


werken dar. Im CPC kommen als FDC 
der uPD 765 in Verbindung mit einer 
3“-Floppy zum Einsatz. Als Option 
kann an den FDC noch ein weiteres 
Laufwerk angeschlossen werden. 

Wir wollen nun kurz auf seine Pro¬ 
grammierung im CPC eingehen. Der 
uPD 765 wird im CPC über die Pol¬ 
lingmethode an die Z80 CPU ange¬ 
schlossen, das heißt, das Steuerpro¬ 
gramm muß den FDC laufend abfra- 
gen, ob er ein Byte für den Z80 hat oder 
ein Byte von ihm erwartet. 

Wie dies vor sich geht, entnehmen Sie 
bitte Listing 1. Eine ausführlichere Be¬ 
schreibung können Sie dem in der PC 
AMSTRAD erschienenen Floppykurs 
entnehmen. 

Der FDC bietet zum Bearbeiten der 
Diskette eine Vielzahl von Befehlen, 
wie DATEN SCHREIBEN, DATEN 
LESEN, SPUR FORMATIEREN etc. 


Um seine Möglichkeiten voll aus¬ 
schöpfen zu können, muß man dem 
FDC sagen, was er tun soll. Das ge¬ 
schieht dadurch, daß man dem FDC 
den Befehl und die dazu benötigten Pa¬ 
rameter, wie z. B. gewünschte Spur, 
Sektor, Sektorgröße, übergibt. Da die 
Programmierung des FDC sehr kom¬ 
plex ist und nicht jeder sie beherrscht, 
hat man ihm das AMSDOS als 
Betriebssystem mitgeben, welches dem 
Anwender die wesentlichen Befehle 
und Routinen, wie File öffnen, Daten 
abspeichern, File schließen, Inhalts¬ 
verzeichnis ausgeben etc., zur Verfü¬ 
gung stellt. Das bedeutet, daß der Be¬ 
nutzer von der Programmierung des 
FDC entbunden wird und sich voll¬ 
kommen auf das Arbeiten mit Dateien 
beschränken kann. 

Damit wollen wir diesen kleinen Ex¬ 
kurs durch die Welt der Floppy schlie¬ 


ßen. Folgenden Tip hoffen wir Ihnen 
aber noch mitgeben zu dürfen: Wenn 
Sie auch nicht alles verstanden haben, 
verzweifeln Sie nicht sofort , denn die 
Floppy ist ein recht schwieriges Thema 
und bedarf eines langen und gründli¬ 
chen Studiums. 

Christoph Hipp/Alexander Knopp/ 
Ulrich Weiss/jb) 


Literaturhinweis 

Die im Bericht verwendeten Zeich¬ 
nungen entstammen dem Buch: 

Schlüssel zum Mikrocomputer 

von Dieter Nührmann, 

welches im Knaur-Verlag erschie¬ 
nen ist, und dem Technik-Manual 
zur BASF-Floppy 6106. 


Tabelle 1 


System 


Sektor¬ 

anzahl 

Sektor¬ 
größe 
(in Bytes) 

Spur¬ 

anzahl 

Kapzität 
pro Disk 
(in KB) 

Disk¬ 
größe 
(in ' ') 

IBM PC/XT 

9 

512 

40 

360 

5 1/4 

IBM AT 


9 

512 

80 

720 

3 1/2 

IBM AT 

HD 

15 

512 

80 

1200 

5 1/4 

IBM AT 

HD 

18 

512 

80 

1440 

3 1/2 

AMIGA 


11 

512 

80 

880 

3 1/2 

ATARI 


9 

512 

80 

720 

3 1/2 

CPC 


9 

512 

40 

360 

3 


Dies ist natürlich nur ein kleiner Auszug aus der 
Vielzahl der Formate. Es ist jedoch ersichtlich, wie 
die Kapazitäten heute im Bereich von 360 KB bis 1.44 MB 
streuen. 


Abb. 14: Eine Tabelle mit den gängigsten Diskettenformaten. 


Listing 1: 



LD E,byte 

; auszugebendes Byte (z.B. 
Befehl) 

FDCTEST : 

LD BC.5FB7E 

; Adresse des Hauptstatus¬ 
registers 

FDCTEST1: 

IN A, (C) 

; Hauptstatusregister einiesen 


BIT 7,A 

; FDC bereit ? (l=bereit) 


JR Z,FDCTEST1 

; nein, dann weiter warten 


BIT 6,A 

; Datenrichtung testen 

( 1=FDC benoetigt ein Byte von 
Z80) 


JR Z,FDCTEST1 

; kein Byte erwartet, dann 
weiter warten 


LD BC,&FB7F 

; Adresse des Datenregisters 


OUT (C),E 

; Byte an FDC ausgeben 


RET 

; zurueck 


Dies ist natürlich keine optimierte Routine (siehe 
hierzu auch Listing FDC-Programmierung in PC 
International 1'89 Seite 47 Zeile 600 ff). 


Abb. 15: Eine kurze Assembler-Routine zum Schreiben eines Bytes in Rich¬ 
tung FDC. 
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Spiele für CPC 


Game, Set & Match II 

Super Hang on, Davis' Snooker, Baske! 
Master, Superball. Track & Fielet, Match- 
day II, Champiorrdiip Sprint 

Kassette 39.90 Diskette 58.90 

Karate ACE 

Way of theTiger, Samurai Trilogie, Bruce 
Lee. Kuny Fu Master Exploding Fist, 
Avenger. Uchi Mata 

Kassette 39.90 Diskette 43.90 

Six-Pack 3 

Ghost'n Goblins. Living Daylights, 
Escape Irorn Singes Castle (nicht aul 
Disc), Dragons Lair, Paperboy, Enduro 
Racer 

Kassette 28.90 Diskette 42.90 
Arcade Force Four 

Road Runner, Gauntlet, Indiana Jones, 
Motrccross 

Diskette 49.90 
Top Ten Collection 

Saboteur 1. Saboteur II. Sygma III, Critrcal 
Mass. Airwolf. Deep Stnke, Combat Lynx, 
Turbo Esprit Thanatos Bombjack II 
Kassette 29.90 Diskette 47.90 

Supreme Challenge 

Elite, Sentinel, Starglider, ACE II, Tetns 
Kassette 39.90 Diskette 49.90 


Giants 

California Games. Gauntlet 11, Out. Run 
Rolling Thunder, 720' 

Kassette 35.90 Diskette 39.90 

Ten Mega Games 

North Star, Cybernoid, Defloctor, Trail- 
blazer, Bloodbrother, MASK II, Tour de 
Force. Hercules, Masters ol the Um- 
verse. Blood Valley 

Kassette 28.90 Diskette 43.90 

Par 3 

Leaderboard. Leaderboard Tournement, 
Worldclass Leaderboard 

Kassette 39.90 Diskette 49.90 

Ten Great Games III 

10th Frame. Firelord, Ranarama. Fighter 
Pilot, Leaderboard, Iridis Alpha. Eagles. 
Reboundor, Alley Cat Last Mission 

Kassette 39.90 Diskette 43.90 

Flight ACE 

Advanced Tactical Fighter, Tomahawk, 
Strike Force Harrier, Speedfire 40, ACE, 
Airtraffic, Combat 

Kassette 45.90 Diskette 57.90 

Space ACE 

Xevius, Venon St.rikes Back, Cybernoid, 
North Star, Zynaps, Trantor, Exolon 

Kassette 39.90 Diskette 43.90 

EPIX 

World Games, Winter Games, Impossible 
Mission, Supercycle 

Kassette 19.90 Diskette 49.90 


1943 

20.000 Meilen 
unter dem Meer 
4X4 Off Road Racing 
Afterbumer 
Arcade Muscle 
Arcade Power 
Arkanoid2 
Artura 
Asterixim 
MorgenlandF.6128 
Bard'sTalel 
Batman 

Bionic Commando 
Blasteroids 
Blueberryunddas 
Gespenst 
Buggy Boy 
California Games 
Chicago 30 
CrazyCars 
CrazyCars2 
Cybernoid 2 

D.T. Olympic Challenge 
Das Reich 
Desolator 
Dogfight2187 
Dragon Ninja 
Echelon 

Empire Strikes Back 


Cass. Disk. 

26.90 41.90 

44.90 

29.90 45.90 

29.90 44.90 

39.90 57.90 

54.90 

28.90 43.90 

31.90 44.90 


39.90 

42.90 

31.90 44.90 

41.90 

29.90 45.90 

39.90 

28.90 41.90 

26.90 37.90 

28.90 44.80 

42.90 

26.90 44.90 

29.90 45.90 

31.90 47.90 

45.90 

26.90 41.90 

39.90 

29.90 44.90 

39.90 43.90 

26.90 41.90 



Cass. 

Disk. 

Expansion Kit für 



FootbaU Manager 2 

22.90 

29.90 

Fists'n Throttles 


44.90 

Football Manager2 

28.90 

43.90 

Galactic Conqueror 

26.90 

41.90 

Gary Linekers Hotshots 

29.90 

45.90 

Gary Linekers 



Super Skills 

29.90 

45.90 

Gary Linekers 



Superstar Soccer 

28.90 

43.90 

GeeBeeAirRalley 

28.90 

43.90 

Golden Path 


42.90 

Guild ofThieves6128 


57.90 

Hate 

33.90 

47.90 

Hereos of the Lance 

26.90 

41.90 

Impossible Mission 2 

26.90 

41.90 

International Karate Plus 


39.90 

Jagd auf Roter Oktober 

41.90 

54.90 

KmghtOrc 

39.90 

54.90 

Lancelot 


57.90 

Last Ninja 2 

39.90 

43.90 

LazerTag 

26.90 

41.90 

Leben und sterben 



lassen 

29.90 

44.90 

Led Storm 

29.90 

45.90 

Luky Luke Nitroglycerin 


35.90 

Maible Madness 



Constr.Set 

26.90 


Mewilo6128 


44.90 

Micky Mouse 

28.90 

43.90 

Microprose Soccer 

47.90 

65.90 

Motor Massacre 

31.90 

47.90 


Nebulus 

28.90 


Netherworid 

29.90 

45.90 

Night Raider 

29.90 

44.90 

Out Run 

26.90 

41.90 

Overlander 

28.90 

43.90 

Pacland 

29.90 

45.90 

Pacmania 

31.90 


Peter Pan 


44.90 

Pink Panther 

28.90 

43.90 

Pirates6128 


57.90 

R-Type 

29.90 

44.90 

Roadblasters 

26.90 


Robocop 

31.90 

44.90 

Run The Gauntlet 

31.90 

47.90 

Rückkehr der Jedi Ritter 

29.90 

44.90 

Savage 

28.90 

43.90 

Space Harrier 

21.90 

35.90 

Superman 

29.90 

45.90 

Sweevos World 


42.90 

Technocop 

29.90 

45.90 

Ten Computer Hits 5 

29.90 

45.90 

The Real Ghostbusters 

29.90 

45.90 

Thunderblade 

26.90 

41.90 

Tiger Road 


41.90 

Times of Lore 

29.90 

49.90 

Titan 

26.90 

41.90 

Trivial Persuit 2 DT, 

44.90 

57.90 

Typhoon 

31.90 

44.90 

Vindicatoi 

26.90 

44.90 

War in Middle Earth 

29.90 

45.90 

Wec Le Mans 

31.90 

47.90 

Winter Edition 

26.90 

41.90 


Die Spiele sind zu einem großen Teil mit deutscher Anleitung, teilweise komplett in deutsch geschrieben. 

Einzelheiten erfragen Sie bitte telefonisch. 


Wir führen Software für Amiga, CPC, Atari ST und IBM-Kompatible. Einige tausend Programme sind ständig am Lager! 


HARDWARE 


KUNSTLEDER-HAUBEN 


CPC 464/664 . 19.80 

CPC 6128 . 19.80 

Monitor GT 64/65 . 27.90 

Monitor CTM 640/644 . 29.95 

EuroPC Tastatur . 21.80 

EuroPC Monitor MM 12 . 34.90 

EuroPC Monitor CM 14. 37.90 

EuroPC Tastatur u. MM 12. 49.80 

EuroPC Tastatur u. CM 14 . 55.80 

PC 1512/1640 Tastatur. 19.80 

Schneider PC 2640 Tastatur. 19.80 

no name MF Tastatur . 19.80 

PC 1512/1640 eintlg.komplett. 49.80 

PC 1512/1640 zweitlg. Set. 59.80 

DMP 2000/2160/3000/3160 . 19.80 

Star NL/ND/NR 10. 24.90 

Star LC 10 . 24.90 


AMSTRAD 


CPC 464 u. Grünmonitor GT 65 398.00 

CPC 464 u. Farbmonitor CTM 644 698.00 

CPC 6128 u. Grünmonitor GT 65 798.00 

CPC 6128 u. Farbmonitor CTM 644 1098.00 


Star LC 10 



CPC-ZUBEHÖR 


Kabel CPC/an Fernseher m. Scart . 19.80 

Bildschirmfilter GT 64/65 . 29.00 

Büdschirmfilter CTM 640/644 . 39.95 

Druckerkabel 464/664 . 29.80 

Druckerkabel 6128 . 29.80 

Monitorverlängerung CPC 464 . 27.90 

Monitorverlängerung CPC 664/6128 . 34.90 
Kabel Computer/Recorder . 19.80 


Telefonische Bestellung {Tag + Nacht): 

(0 23 05 ) 3770 


DISKETTEN 


No Name 3V2", 10 Stck. 24.90 

Maxell 3 ", 10 Stck. 69.00 


Ladengeschäftszeiten: 
Montag-Freitag 9.00 - 13.00 Uhr 
15.00 - 18.30 Uhr 
Samstag 9.00 - 14.00 Uhr 
Langer Samstag 9.00 - 18.00 Uhr 

Versand per Nachnahme zuzügl. Versandkosten. Oder Vorkasse 
auf Psch,-Kto. Nr. 69422-460 PschA Dortmund zuzügl. 5, - DM Ver¬ 
sandkosten. 24-Stunden-Schnellversand per UPS. 

Ausland nur per Vorkasse auf Psch.-Kto, zuzügl. 10, DM Versand¬ 
kosten. Bitte bei allen Bestellungen Computertyp angeben! 

Bitte fordern Sie unsere Software-Liste 
gegen frankierten Rückumschlag an. 

brtumci und Pieuttnrierungon Vorbehalten 


Wir haben eine große 
Auswahl an PC-Zubehör. 
Fragen Sie bitte nach. 
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O Senden Sie mir bitte Ihren Katalog 
(2,- DM in Briefmarken liegen bei) 
Hiermit bestelle ich 
O per Nachnahme O per Vorkasse 
O Incl. kostenlosem Katalog 


Vorname, Name 


Straße, Hausnummer 

PLZ, Ort. 

Computertyp 


BESTELLSCHEIN ttt m 
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Artikel 

Preis 
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Im Zauberreich der Grafik 

PEN-Umwandlung ohne Probleme 


Heute kommen wir zum dritten Teil des grafischen 
Lehrganges, der sich unter anderem mit der PEN-Um¬ 
wandlung beschäftigt. Weiterhin gibt es viele grafische 
Leckerbissen zum Ausprobieren. 



1. Fillunterbrechung im 

MULTISCREEN 

Wer mit dem im letzten Heft vorge¬ 
stellten FILLBREAK-Programm (Fill- 
unterbrecher, Seite 28) gearbeitet und 
die fantastisch geformten Füllflächen, 
die es erzeugen kann, bewundert hat, 
wird sich oft gewünscht haben, die 
Möglichkeiten dieses Programms auch 
innerhalb von MULTISCREEN nützen 
zu können; dann brauchte man das ent¬ 
standene Bild nicht immer wieder erst 
abzuspeichern, bevor man es weiter 
bearbeiten kann, man könnte die Füll¬ 
fläche sofort isolieren, konvertieren 
usw. - aber leider ist das FILL¬ 
BREAK-Programm zu groß, als daß es 
noch im MULTISCREEN unterzu¬ 
bringen wäre. 

Aber es gibt einen Weg: Wir können 
daraus ein Binärprogramm erzeugen, 
das beim Start von MULTISCREEN 
mitgeladen wird und vom Hauptpro¬ 
gramm aus aufgerufen werden kann. 
Gehen Sie dazu folgendermaßen vor: 
Laden Sie das Programm “Fillunter- 
brecher“, und verkürzen Sie die Zeile 
1080 auf den Befehl MEMORY 
&A200, anschließend geben Sie als 
Zeile 1100 folgendes ein: 

1100 SAVE“FILLBRK.BIN“,B,&A2FA,&1FB 

Das Programm müßte jetzt so aussehen 
wie das abgedruckte Listing 1. Spei¬ 
chern Sie diesen “Fillader“ sicher¬ 
heitshalber erst auf die Diskette, auf 
der Sie auch MULTISCREEN stehen 
haben (Sie finden ihn unter dem Namen 
“FILLADER.BAS“ auf der Databox). 
Lassen Sie ihn dann laufen. Er erzeugt 
und speichertein Binärprogramm unter 
dem Namen “FILLBRK.BIN“, das im¬ 
mer zusammen mit MULTISCREEN 
auf der gleichen Diskette stehen sollte. 
Fügen Sie nun im MULTISCREEN- 
Programm (Heft 6/89, S.31) die fol¬ 
genden beiden Zeilen ein: 

52 IF PEEK(&A2FE) < > &DD THEN LOAD 
“FILLBRK.BIN“,&A2FA 
435 IF INKEY(53)=32 THEN TAG0FF: L0CATE 
1,1: PRINT CHR$(23)CHR$(0) : GRAPHICS PEN 
sf :xO=x:yO=y:MOVE x,y: CALL &A2FA,ff: 
x=xO:y=yO:GOTO 340 


Jetzt können Sie den Fillunterbrecher 
aufrufen, wenn Sie nach dem Anwäh¬ 
len der Option(lO) und der Parameter¬ 
eingabe den Ausfüllvorgang mit 
<SHIFT> + <f> auslösen. Zwei¬ 
maliges Drücken von < ESC > bringt 
das Ausfüllen zum vorübergehenden 
Anhalten; mit einer anderen Taste kann 
es fortgesetzt werden. Durch einen 
weiteren Druck von < ESC > + 
< Leertaste > wird das Ausfüllen ab¬ 
gebrochen und der erreichte Zustand in 
den Speicher übernommen. Anschlie¬ 
ßend kann der Cursor weiterbewegt 
und woanders weitergefüllt werden. 
Soll das Bild endgültig übernommen 
werden, so genügt wieder ein mehrma¬ 
liger Leertastendruck, und Sie können 
sofort anschließend die Füllfläche iso¬ 
lieren (Option 5) und mit ihr weiterar- 
beiten. Die beiden anderen Füllmög- 
lichkeiten durch <f> und 
<CONTROL> + <f> stehen natür¬ 
lich weiter wie bisher zur Verfügung. 

2. Strukturwandel durch 
andersfarbiges Überzeichnen 

Alle unseren bisherigen Bilder waren 
in erster Linie von ihrer Struktur be¬ 
stimmt; die Farbe spielte dabei kaum 
eine Rolle. Aber die Struktur eines Bil¬ 
des kann auch von der Farbe umgestal¬ 


tet werden. Nehmen Sie z.B. das 
Grundprogramm zur Quadrate-Grafik 
(Heft 3/89, S. 12) und fügen Sie nur die 
zwei Zeilen ein: 

52 w=0.2:GRAPHICS PEN 0 

53 G0SUB 70: GRAPHICS PEN 1 

Wer mit dem CPC 464 arbeitet, der 
den Befehl GRAPHICS PEN nicht 
kennt, muß statt dessen eingeben: 

PLOT 1000,1000,0. 

Dadurch, daß somit (weit außerhalb 
des Bildschirms) ein Punkt mit PEN 0 
gesetzt wird, schaltet der CPC 464 
auch alle folgenden grafischen Ausga¬ 
ben auf den PEN 0 um. 

Wichtig ist bei solchen Programmen 
mit Farbwechsel auch das abschließen¬ 
de GRAPHICS PEN 1 (bzw. PLOT 
1000,1000,1 beim CPC 464). Es kann 
Ihnen sonst leicht passieren, daß Sie 
ein neues Programm starten und über¬ 
haupt nichts auf dem Bildschirm er¬ 
scheint, weil noch der GRAPHICS 
PEN 0, der ja die gleiche Farbe hat wie 
der Hintergrund, eingestellt ist. 

Durch die Zufügung in unserem Pro¬ 
gramm gehen wir also über das ursprüng¬ 
liche Bild noch einmal mit einer anderen 
Farbe darüber; das führt dazu, daß die 
Wände dieses Raumes allmählich zerfal¬ 
len und sich nach allen Seiten hin öffnen. 
Probieren Sie das mit verschiedenen 
Werten von w! Jedes Mal ergeben sich 
dabei andere Zerfallstrukturen. 
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In der folgenden Grafik, die ebenfalls 
nur aus Quadraten aufgebaut ist, 
schafft der Farbwechsel Platz für das 
Erscheinen des “Morgensterns“ — ein 
Beispiel für Grafiken, bei denen das 
Zuschauen beim Entstehen ebenso 
reizvoll ist wie das fertige Bild: 

10 'Das Erscheinen des Morgensterns 
20 MODE 2:DEG 

30 a=290:b=200:f=1.04:n=78:r=20: 
w=-5:G0SUB 90 
40 a=350:w=5:GOSUB 90 
50 GRAPHICS PEN 0:n=57: 

G0SUB 90: a=290: w=-5: GOSUB 90 
60 GRAPHICS PEN 1: PRINT CHR$(23)CHR$(l) 
70 a=320:f=1.009:n=77:r=10: 
w=45:GOSUB 90 

80 f=1.01 :n=13:r=55: GOSUB 90: CALL &BB18: 
END 

90 ORIGIN a,b 
100 x=r:y=r 
110 FOR i=l TO n 
120 PLOT x,y 
130 DRAW -y,x 
140 DRAW -x,-y 
150 DRAW y, -x 
160 DRAW x,y 

170 xx=x#COS(w)-y#SIN(w): 
y=x#SIN(w)+y#COS(w) 

180 x=xx#f:y=y#f 
190 NEXT i: RETURN 

Für ein letztes Beispiel wollen wir Ih¬ 
nen eine neue Art der Grafik vorfüh¬ 
ren, die nicht aus Quadraten, sondern 
aus der Bogenraute aufgebaut ist. Für 
die interessante Figur der Bogenraute 
gilt als Grundform die mathematische 
Relation: 
x = rx*COS(w)T3 
y = rY*SIN(w)T3 

Ihre zeichnerische Darstellung auf dem 
CPC sieht folgendermaßen aus: 

10 'Bogenraute 
20 MODE 2: DEG: ORIGIN 320,200 
30 a=320:b=200:rx=250:ry=l40:G0SUB60 
50 CALL &BB18: END 

60 ORIGIN a,b 

61 FOR w=0 TO 360 
70 x=rx*C0S(w)T3 
80 y=ry*SIN(w)T3 

90 IF d=0 THEN PLOT x,y ELSE DRAW x,y 
100 d=l :NEXT w 
110 d=0: RETURN 

3.Grundzüge der 
Farbdarstellung im CPC 

Mit der Farbe läßt sich aber die Bild¬ 
struktur noch weit nachhaltiger beein¬ 
flussen. Dafür müssen zunächst die nö¬ 
tigen Befehle kurz dargestellt werden. 

3.1. Die Unterscheidung von PEN 
und INK 

Wie Sie ja wohl wissen, werden im 
CPC Farben durch zwei verschiedene 
Befehle erzeugt: PEN und INK. Im 
MODE 2 stehen nur zwei PENs zur 
Verfügung, im MODE 1 aber schon 
vier, im MODE 0 dagegen 16. Man 
kann einen PEN mit einem Pinsel ver¬ 



gleichen, der nun in ein Tuschgläschen 
mit einem ganz beliebigen Farbton ge¬ 
taucht werden kann und und nun seine 
Punkte, Linien und Pinselspuren in 
diesem Farbton zeichnet. Dieser Farb¬ 
ton wird mit INK bezeichnet, und es 
gibt 27 davon. Die Anweisung INK 0,3 
taucht also den PEN 0 in die rote Farbe 
( = 3); alles, was mit PEN 0 gezeichnet 
wird, erscheint in Rot. Freilich endet 
hier die Vergleichsmöglichkeit mit 
Pinsel und Farbe; denn es ist nicht 
möglich, dadurch, daß man dem glei¬ 
chen PEN nacheinander verschiedene 
INKs zuweist, ein mehrfarbiges Bild 
zu zeichnen. Die Anweisung “INK 
pinsel, färbe“ bezieht sich immer auf 
das ganze Bild, ändert also auch die 
Farbe der schon gezeichneten Teile. 
Aber was geschieht nun, wenn ver¬ 
schiedene PENs mit verschiedenen 
Farben sich überlagern? Man könnte 
meinen, daß sich dann die Farben eben 
mischen, daß z.B. Blaugrün (10) und 
Purpur (7) irgendeinen Braunlilaton er¬ 
geben. Aber sehen Sie sich das folgen¬ 
de Beispiel an, bei dem die schrägen 
Türme dadurch zustande kommen, daß 
in Zeile 120 der Printabstand immer 
dann verkleinert wird, wenn y durch 24 
ohne Rest teilbar ist (sollten Ihnen Be¬ 
griffe wie “Printabstand“ nicht mehr 
geläufig sein, so sehen Sie nochmal in 
Heft 3/89, S.14 nach). Auf dem CPC 
464 müssen Sie bei diesem Programm 
wieder die Anweisungen GRAPHICS 
PEN 0 bezw. 1 durch die Befehle 
PLOT 1000,1000,0 bzw.l ersetzen: 

10 ' Gotische Turmfassade 
20 INK 0,0: INK 1,10:INK 2,7:INK 3,26 
30 MODE 1:PRINT CHR$(23)CHR$(l):TAG 
40 f$=STRING$(5,0) 

50 FOR a=40 T0 520 STEP 160 

60 d=d+l: IF d MOD 2=0 THEN GRAPHICS PEN 1 

ELSE GRAPHICS PEN 2 

70 b=20:p=40:s=4:y2=320: 

GOSUB 90: NEXT a 

80 CALL &BB18:END 

90 ORIGIN a,b:F0R y=0 T0 y2 STEPs 


100 M0VE x,y:PRINT f$; :M0VE x+p,y: 

PRINT f$; 

110 MOVE x-p, y: PRINT f$; 

120 IF y MOD 24=0 THEN p=p-3 
130 NEXT y: RETURN 

Dieser Wechsel von blaugrünen und 
purpurnen Türmen, hervorgerufen 
durch den regelmäßigen PEN-Wechsel 
in Zeile 60 und auf einem Grün-Moni¬ 
tor nur als trübe Spur erkennbar, sieht 
allerdings noch nicht nach einer “goti¬ 
schen Turmfassade“ aus. Aber rücken 
Sie nun einfach die Türme näher zu¬ 
sammen, indem Sie die STEP-Angabe 
in Zeile 50 ändern in STEP 80! Und da 
entsteht an den Überschneidungsstel¬ 
len kein Braunlilaton, sondern in 
leuchtendem Weiß wachsen zierlich 
strukturierte Türmchen wie an der Be¬ 
krönung einer gotischen Fassade em¬ 
por. Geben Sie nun im Direktmodus 
ein: 

INK 1,0: INK 2,0 

Jetzt haben Sie die “Gotische Turmfas¬ 
sade“ allein auf dem Bildschirm. 

Bei solchen INK-Experimenten, bei 
dem Sie den PENs alle möglichen Far¬ 
ben zu weisen, um die beste Wirkung 
auszuprobieren, kann es leicht passie¬ 
ren, daß Sie nicht mehr zurückfinden 
und vielleicht plötzlich gar nichts mehr 
auf dem Bildschirm zu sehen ist. Da 
hilft ein Trick: der Befehl CALL 
&BC02 stellt die ursprüngliche Farb- 
zuweisung des CPC auf dem ganzen 
Bildschirm wieder her; diese Eingabe 
werden Sie zur Not auch bei schwar¬ 
zem Bildschirm noch blind hinkriegen, 
und mit einem Schlag erscheint Ihr 
ganzes Bild wieder. 

3.2. Farbcodierung intern 

Wie nun der merkwürdige Farbeffekt 
bei unseren Türmen zustande kommt, 
klärt ein Blick in das Innenleben des 
CPC-Bildschirmspeichers. Die Bild¬ 
punkte auf dem Monitor werden ja 
nicht einzeln codiert, sondern es wer- 
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den jeweils mehrere zu einem soge¬ 
nannten Byte zusammengefaßt, das aus 
8 Bit, also acht kleinsten Einheiten be¬ 
steht. Im MODE 2 ergibt jedes dieser 
einzelnen Bits einen Punkt; im MODE 

1 dagegen wirken jeweils zwei Bits für 
einen Punkt zusammen, aber nicht die 
zwei nebeneinanderliegenden, sondern 
die, die in einem Abstand von vier Bit 
nebeneinander stehen: 

Bit 0 und 4 zusammen ergeben also den 
Punkt 1, Bit 1 und 5 den Punkt 2, usw. 
Dabei gilt folgende Codierung: Die 
Bitfolge 00 ergibt PEN 0, 01 ergibt Pen 
1,10 ergibt PEN 2,11 ergibt PEN 3 (in 
binärer Schreibweise ist ja 11 soviel 
wie dezimal 3). 

Nun ist der Farbeffekt bei unserer 
“Turmfassade“ klar: PEN 1 XOR PEN 

2 ergibt nicht lila (das wäre ja nur eine 
augenblickliche INK-Zuweisung), 
sondern PEN 3 (binär: 01 XOR 10 = 
11), und dem PEN 3 wurde ja das helle 
Weiß zugewiesen. Nun wird auch klar, 
warum bei einem Bild im MODE 1, das 
Sie waagerecht spiegeln, die Farbe 
wechselt (nehmen Sie dafür z.B. den 
“Mosaikstern“ aus Heft 6/89). Aus 
dem Byte 00001111 wird eben beim 
Spiegeln 11110000 - und das ergibt 
PEN 2. 

Klar wird jetzt auch ein anderer Effekt, 
den Ihnen MULTISCREEN ermög¬ 
licht. Wenn Sie ein Bild im MODE 2 
eingeladen haben (z.B. den “Eiglobus“ 
aus Heft 6/89), dann unterbrechen Sie 
doch einmai den Programmlauf, und 
geben Sie im Direktmodus ein: m = 1. 
Dadurch werden alle im Speicher be¬ 
findlichen Bilder auf MODE 1 gesetzt. 
Drücken Sie jetzt die kleine ENTER- 
Taste — ein völlig anderer Eiglobus er¬ 
scheint! Auf dem Grünmonitor ist er 
dünn und löchrig geworden, auf dem 
Farbmonitor entfaltet sich ein wirres 
Farbenspiel. Die einzelnen Bits im 
Bildschirmspeicher werden jetzt eben 
ganz anders interpretiert, als Farbco- 
dierung wie oben dargestellt. Oder ver¬ 
setzen Sie das “Brötchenbild“ (Heft 
6/89), nachdem es im Mode 2 eingela¬ 
den wurde, in den MODE 1 — da wird 
die ganze Struktur verändert, durch die 
Farbe ist ein neues Bild entstanden. 
Geben Sie jetzt im Direktmodus ein: 
INK 1,0: INK 2,0: INK3,26. 

Wieder haben Sie ein ganz neues Struk¬ 
turmuster auf dem Bildschirm! Frei¬ 
lich: Das alte Bild ist trotzdem noch 
vorhanden, nur mit teilweise nicht 
sichtbaren Farben. Verwenden Sie eine 
Hardcopyroutine, die, wie viele sol¬ 
cher Routinen, alles ausdruckt, was auf 
dem Bildschirm sichtbar ist, so bekom¬ 
men Sie mit ihr alles, auch die Teile, 


die Sie gerade beseitigt haben, aufs Pa¬ 
pier. Und wenn Sie versuchen, das 
“Grabkreuz“ (Heft 6/89) zu spiegeln 
und die beiden Bilder über AND zu 
kombinieren, ergibt sich gar nichts — 
PEN 1 (=01) und PEN 2 (= 10) haben 
eben nichts gemeinsam. 

3.3. PENs umwandeln 

Ja, wenn man die PENs auch so um¬ 
wandeln könnte wie die INKs! Nun, 
über BASIC geht das leider nicht. Aber 
ein kleines Maschinenprogramm (das 
uns später auch noch andere Dienste 
leisten wird) kann hier helfen! Es ver¬ 
schafft Ihnen die völlig neuartige Mög¬ 
lichkeit, im MODE 1 jeden beliebigen 
PEN in jeden anderen umzuwandeln. 
Tippen Sie den Datalader dafür ab 
( = “PENLADER.BAS“, Listing 2), 
speichern Sie ihn auf Ihre MULTI- 
SCREEN-Diskette bzw. -Kassette, und 
lassen Sie ihn laufen. Er erzeugt und 
speichert ein Maschinenprogramm, 
das beim ersten Aufruf von MULTI¬ 
SCREEN mitgeladen wird. Fügen Sie 
dann in MULTISCREEN die folgen¬ 
den Zeilen ein: 

54 IF PEEK(&A4FE) < > &CB THEN LOAD 

"PENBYTES.BIN",&A4F5 

152 PRINT“ (13) Pen umwandeln“ 

520 MODE m: CALLs 

530 INPUT“Alter PEN, neuer PEN: “,ap,np 
540 IF ap=l THEN ap=2 ELSE IF ap=2 THEN ap=l 
550 IF np=l THEN np=2 ELSE IF np=2 THEN np=l 
560 P0KE &A4F6,ap:POKE &A4F8,np:CALLs: 
CALL &A4F5 

570 IF INKEY (27) =0 THEN L0CATE 1,1: CALL b: 
GOTO 530 

580 IF INKEY(47) =0 THEN 250 
590 GOTO 570 

Nun können Sie im MODE 1 jeden 
PEN umwandeln; wollen Sie noch ei¬ 
nen weiteren PEN ändern, so brauchen 
Sie nur auf <p> zu drücken. Die lä¬ 
stige Erscheinung, daß dabei zunächst 
immer ein “p“ auf dem Bildschirm er¬ 
scheint, das erst weggelöscht werden 
muß, können Sie beim CPC 664/6128 


Bild 2: 

Gotische Tunnfassade 


vermeiden, indem Sie in Zeile 530 am 
Beginn noch einfügen: CLEAR IN¬ 
PUT (der CPC 464 kennt diesen Befehl 
nicht). Zweimaliger Leertastendruck 
übernimmt das umgewandelte Ergeb¬ 
nis und führt zurück zum Menü. 

4. Farben und Ausfüllen 

Für die Grafik ist wichtig, daß die ver¬ 
schiedenen FILL-Befehle sich gegen¬ 
über den PENs ganz verschieden ver¬ 
halten. Manche (wie der des mehrfach 
erwähnten COPYSHOP-Programms 
sowie der des Emulators für den CPC 
464) betrachten jeden anderen PEN au¬ 
ßer dem, auf dem sie zu laufen begin¬ 
nen, als Sperrfarbe, andere (wie der 
des AMSTRAD-BASIC oder unser 
Exotic-Fill) erkennen nur eine einzige 
Sperrfarbe, die man angeben muß. 
Versetzen Sie den “Eiglobus“ in den 
MODE 1, und starten Sie das Ausfül¬ 
len von dem Loch in der Bildmitte aus, 
so wird fast das ganze Bild ausgefüllt 
(dabei entstehen interessante Zwi¬ 
schenstadien, die Sic durch den FILL- 
Unterbrecher für großartige Stadtsil¬ 
houetten hemehmen können); wandeln 
Sie aber vorher PEN 3 in PEN 1 um, so 
frißt sich der Ausfüllvorgang in ganz 
anderem Muster über die Fläche und 
bricht dann ab. 

So können Sie jede Grafik in MUL¬ 
TISCREEN in wechselnden Modes un¬ 
tersuchen und durch PEN-Umwand- 
lung die unterschiedlichsten Effekte 
hervorrufen. Probieren Sie das PEN- 
Umwandeln auch einmal im MODE 2 
an einem reichstrukturierten Bild, etwa 
dem Eiglobus, aus! Da ergeben sich 
merkwürdige Strukturveränderungen. 
Mit noch ganz anderen Strukturverän¬ 
derungen. die durch die Umwandlung 
bestimmter Bytes entstehen, werden 
wir uns im nächsten Heft beschäftigen. 

(Friedrich Belzner/cd) 
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in echter 3D-Qualitätü 


3D-Light Cycle: 

Das allseits bekannte und beliebte TRON-Spiel für zwei Personen jetzt wie im Film!! 
Erleben Sie dieses spannende und abwechslungsreiche Actionspiel jetzt in einer 
neuen Dimension. Verblüffende und noch nie dagewesene 3D-Effekte sowie 
professioneller Sound lassen Sie in eine völlig andere CPC-Welt versinken. 

Diesen Super-Hit muß man ’live’ gesehen haben. 


3D-Labyrinth: 


Das beste Labyrinthspiel jetzt in Super 3D-Qualität. Auf der Suche nach Hinweisen zum 
Passwort, das den mächtigen Zentralcomputer lahmlegen kann, lauern tausend 
Gefahren auf Sie. Die räumlich perfekte 3D-Darstellung, superschneller Grafikaufbau und 
viele Überraschungen garantieren eine völlig neue Art von Spielvergnügen. 


Voraussetzungen: 

CPC 464/664/6128 mit Farbmonitor. Das Spiel 
3D-Light Cycle kann ohne 3D-Brille auch auf 
Grünmonitor gespielt werden, Darstellung dann in 2D. 
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Endpreis 53,- DM Endpreis 55,- DM 
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Game Set and Match 2 

Hersteller: Ocean 
Vertrieb: Fachhandel 
Steuerung: Joystick/Tastatur 
Preis: DM 59,95 

CPC 464 Kl CPC 664 K CPC 6128 K 

Es lebe der Sport 

Sport ist nach wie vor eines der belieb¬ 
testen Genres auf dem Computer, und 
da wundert es dann auch keinen, daß 
die erfolgreiche Sportcompilation 
Game Set and Match jetzt einen Nach¬ 
folger mit Game Set and Match 2 fand, 
ln der neuen Ausgabe geben sich acht 
große Sportspiele die Ehre, von denen 
wir ein paar ausgewählte vorstellen 
wollen. 

Super Hang On 

Der direkte Nachfolger des Sega-Hits 
Hang On, hier nur um neue Strecken 
und die Turbo-Option erweitert. 
Durchqueren Sie auf Ihrem Motorrad 
verschiedene Länder in mehreren 
Etappen. Sollten Sie der Meinung sein, 
daß Sie ein Joystick-Experte sind, be¬ 
steht die Möglichkeit, daß Sie bei Tem¬ 
po 280 den Nitroturbo zuschalten, um 
Ihren Konkurrenten davonzufahren. 
Die Grafik ist etwas farbarm geraten, 
dafür aber recht flott. Der Sound ist 
eine gute Untermalung des Spiels. 
Selbst nach mehrmaligem Spielen 
macht Super Hang On noch Spaß. Su¬ 
per Hang On kann man wohl als eine 
der besten Motorradrennsimulationen 
für den Amstrad bezeichnen. 



Championship Sprint 

Noch ein Nachfolger eines großen 
Spiels. Championship Sprint ist ein 
Autorennspiel der Sonderklasse. Der 
Spieler sieht seinen Wagen und die 
Rennstrecke in der Draufsicht und muß 
natürlich versuchen, als erster durchs 
Ziel zu gehen. Hin und wieder sind auf 
der Rennstrecke Schraubenschlüssel, 
Ölflecken etc. zu finden. Die Schrau¬ 
benschlüssel sollte man aufsammeln. 
Wenn man vier davon hat, kann man 
seinen Wagen damit tunen. Cham¬ 
pionship Sprint kann mit zwei Spielern 
gespielt werden. Das besondere an 
Championship Sprint ist das eingebau¬ 
te Construction-Set, das es dem Spieler 
ermöglicht, seine eigenen Renn¬ 
strecken zu konzipieren. Champion¬ 
ship Sprint macht gerade zu zweit einen 
Heidenspaß, und ich würde es als 
Highlight dieser Compilation bezeich¬ 
nen, zumal auch Grafik und Sound gut 
sind. 

Basket Master 


Basketball macht Spaß, wenn man es 
selbst spielt. Mit dem Basket Master 
wurde versucht, diesen Spaß auf den 
Computer umzusetzen. In einer quasi 
3D-Draufsicht sieht man das Spielfeld 
und die Spieler, die sich hier auf inge¬ 
samt zwei beschränken. Man kann zu 
zweit oder gegen den Computer spielen 
und sich gelungene Spielzüge noch ein¬ 
mal in Zeitlupe ansehen. Laut Hand¬ 
buch soll die Musikuntermalung reali¬ 
stisch sein, doch ich finde, sie ist davon 
sehr weit entfernt. Die Grafik hätte et¬ 
was prächtiger sein können, reicht aber 
für das Spiel aus. Basket Master ist nur 
dem eingefleischten Basketball-Freak 
zu empfehlen, da es sich hier doch eher 
um One-on-One als um richtiges Bas¬ 
ketball handelt. 

Match Day II 

Fortsetzungen sind sehr beliebt, und so 
gibt es auch für den Fußball-Klassiker 
Match Day eine Fortsetzung, die ge¬ 
genüber der ersten Version um einige 
Features aufgebessert wurde. So ent¬ 
hält Match Day II eine Liga und ein Po¬ 
kalspiel. Die Möglichkeiten der Schüs¬ 
se wurde auf fast alle Arten erweitert, 
die es im richtigen Fußball auch gibt. 
Die Grafik hat sich gegenüber der er¬ 
sten Version nicht verändert, auch am 
Sound wurde nichts getan. Aber alles 
in allem ist Match Day II ein gut ge¬ 
machtes Fußballspiel. 



Track & Field 

Der Sportspielklassiker überhaupt. 
Sorgte er doch in den Spielhallen für 
kaputte Hände und ekstatische Sprün¬ 
ge, wenn man einen neuen Rekord auf¬ 
gestellt hatte. Auch in der Amstrad- 
Version hat Track & Field nichts von 
seinem Reiz verloren. Sechs Diszipli¬ 
nen gilt es zu meistern. Allerdings wird 
hier mehr Joystickakrobatik als Köpf¬ 
chen verlangt. Und so gewinnt halt der, 
der seinen “Steuerknüppel“ als erster 
in den “Joystick-Himmel“ geschickt 
hat. Die Grafiken können sich sehen¬ 
lassen, auch der Sound ist gut gelun¬ 
gen. Ich rate jedem, beim Sperrwurf 
mal auf Entenjagd zu gehen (Wurfwin¬ 
kel 80 Grad). 



Fazit 

Game Set and Match ist eine ordentlich 
zusammengestellte Compilation. Na¬ 
türlich sind neben den Highlights 
(Championship Sprint und Track & 
Field) auch zwei schwache Programme 
vertreten, aber der Rest der Software 
liegt über dem Durchschnitt, und so 
kann jedem Game Set & Match 2 nur 
wärmstens ans Herz gelegt weren. Hier 
bekommt man für seine DM 59,95 
wirklich Value for Money ( rg ) 
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The Real 
Ghostbusters 


Hersteller: Activision 
Vertrieb: Fachhandel 
Steuerung: Joystick/Tastatur 
Monitor: Farbe/Grün 
Preis: 49,50 DM 

CPC 464 K CPC664K CPC 6128 Kl 

Pie Geister sind los 

Was soll man jetzt davon halten? Da er¬ 
schienen vor einigen Jahren durchaus 
wirkliche Gestalten auf der Kinolein¬ 
wand, die halb Amerika von Geistern 
aller Art befreiten, dabei allerdings 
meist mehr Schaden anrichteten, als 
die Geister je dazu imstande gewesen 
wären. Der Film wurde ein Kassenhit, 
was bedeutete, daß einige Zeit später 
ein Computerspiel auf dem Markt auf¬ 
tauchte, das sich mit den Geisterjägern 
beschäftigte. Das hatten wir also alles 
schon; und nun werden wir mit den 
wahren Ghostbusters konfrontiert. Die 
Frage drängt sich auf: Wurde der Film 
wiederaufgeführt? 

Um es vorweg zu nehmen: Dieses Spiel 
hat thematisch nicht viel mit dem Film 
zu tun; es handelt sich eher um ein bun¬ 
tes Actionspiel, welches ein bis zwei 
Ideen der Filmautoren übernommen 
hat. 

Ein oder zwei Spieler können die Jagd 
auf Geister jeglicher Art aufnehmen. 
Sie verkörpern dabei die Mitglieder der 
Ghostbuster-Truppe und ziehen von 
Level zu Level. Gut bewaffnet, geht es 
nun darum, alles, was sich bewegt, per 
gezieltem Schuß in nette kleine Geister 
zu verwandeln, die dann mittels Proto¬ 
nenstrahl in den Rucksack befördert 
werden. Am Ende eines Levels bekom¬ 
men die Ghostbusters es dann noch ein¬ 


mal mit ein oder mehreren Levelwäch- 
tern zu tun. Diese sind zu beseitigen. 
Sind die Geisterjäger dabei erfolg¬ 
reich, so erhalten sie einen Schlüssel, 
mit dessen Hilfe man nun in die nächste 
Spielebene gelangt. Die aufgesammel¬ 
ten Unholde werden gegen Bonuspunk¬ 
te eingetauscht, wer will schon immer 
rege kleine weiße Bettlaken mit sich 
herumtragen? Hier und da sind Gegen¬ 
stände zu finden, die den Spielern für 
einige Zeit gewissen Stärken geben. So 
schlägt und sammelt man sich durch 
die Ebenen, immer die gute Sache der 
Geisterbekämpfung im Hinterkopf. 

Und noch ein Geist 

Spielidee und Ausführung von “Real 
Ghostbusters“ sind nicht gerade revo¬ 
lutionär neu, dafür wurden all die alten 
bewährten Mittel mit einer gehörigen 
Portion handwerklicher Geschicklich¬ 
keit zu einer soliden Ware zusammen¬ 
geschweißt. Besonders die Anzahl der 
Geister und deren Vielfalt sind sehens¬ 
wert. Es tauchen immer wieder neue 
Gesichter auf, und all diese sind her¬ 
vorragend gestylt. Alle Figuren sind 
flott animiert, so daß stets jede Menge 
Bewegung im Spiel ist. In punkto 
Machart kann man sich über dieses 
Produkt also wahrlich nicht beschwe¬ 
ren; was wie so oft fehlt, sind überra¬ 
schende Ideen, die das mit der Zeit mo¬ 
noton werdende Spielgeschehen an den 
richtigen Stellen auflockem. 

SpieWet? BixfconungG- Doku- Gtatik Sound Preis/ 
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Haben Sie die "Real 
Ghostbusters “ im 
Kino gesehen ? Jetzt 
können Sie mitspie¬ 
len — mit Ihrem 
CPC! 


NEU: 

Heißer Draht 

jetzt 

mit Durchwahl! 



Haben Sie Fragen, die nicht 
warten können? Dann rufen 
Sie uns an! Unser Leser- 
Telefonservice steht Ihnen 

jeden Mittwoch 
von 17.00 bis 20.00 Uhr 

zur Verfügung. 


Sie erreichen Ihren Redak¬ 
teur jetzt direkt unter einer 
Durchwahlnummer. Auf 
Ihren Anruf freuen sich: 


Claus Daschner 
(CPC) 

(0 56 51 ) 80 09 - 16 


Jürgen Borngießer 
(CPC, PC] 

(0 56 51 ) 80 09 - 17 


Ralf Schößler (PCW) 

(0 56 51 ) 80 09 - 18 


Achtung: Die in früheren 
Heften veröffentlichte Sam¬ 
melnummer ist ab sofort un¬ 
gültig - diese Nummer bit¬ 
te nicht mehr anwählen! 
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Das Spielgeschehen erinnert auf den 
ersten Blick an Spiele ä la Gauntlet und 
Co. Am Ende jedes Levels erwartet 
den Spieler auch ein entsprechend fie¬ 
ser Oberbösewicht, der erst einmal den 
Zutritt zum nächsten Level verwehrt. 
Ist der Bursche niedergekämpft, hin¬ 
terläßt er einen Schüssel, und neue Ta¬ 
ten warten. Die folgenden Levels un¬ 
terscheiden sich vom Spielgeschehen 
im allgemeinen kaum vom ersten, al¬ 
lerdings werden die Widersacher ra¬ 
biater, und der Schauplatz verändert 
sich. 


Fazit 

Der Markt wird immer voller und die 
Werbegags damit immer ausgefeilter. 
Wer also ein Spiel zum Film oder einen 
Nachfolger zum ersten Ghostbusters- 
Spiel erwartet, der wird sicher ent¬ 
täuscht sein. Wer Lust auf wilde Gei¬ 
ster und Action hat, der ist mit diesem 
Produkt gut beraten, denn an der tech¬ 
nischen Ausführung kann nicht viel be¬ 
mängelt werden, gut, ein paar Stilblü¬ 
ten in der Anleitung, über die aber 
letztlich großzügig hinweggesehen 
werden kann. 

(Joachim Freiburg/mm) 


Barbarian II 

Hersteller: Palace 
Vertrieb: Fachhandel 
Steuerung: Joystick/Tastatur 
Monitor: Farbe/Grün 
Preis: 49,95 DM 


Der Barbar und die Prinzessin 

Einst kämpfte der Barbar gegen wilde 
Horden von Kriegern des bösen Drax. 
Dieser hatte es gewagt, die schöne 
Prinzessin Mariana zu entführen und 
diese mit einem Zauber zu bannen, 
eine Untat, die ein richtiger Barbar 
nicht auf sich sitzenlassen kann. Er 
schlug also die Krieger, um seine Herz¬ 
dame zu entzaubern. 

Als Drax bemerkte, daß es wohl nicht 
mehr lange gut um ihn stehen sollte, 
flüchtete er in das Verlies unter der 
schwarzen Burg und beschloß, aus hä¬ 
mischer Rache, Unheil über das Juwe¬ 
lenkönigreich zu bringen. Nun grault 
er in einem düsteren Keller, beschützt 
von außerordentlich widerlichen Krea¬ 
turen. Damit diesem Treiben ein Rie¬ 
gel vorgeschoben werden kann, muß 
erneut der Barbar her. Nur er und Ma¬ 
riana, die nicht nur schön, sondern 
auch schwertkampferprobt ist, sind in 
der Lage, sich in die Behausung des 
üblen Drax vorzukämpfen. 

Kampf und nur wenig mehr 

Die Vorgeschichte von Barbarian II 
deutet es bereits an: In diesem Pro¬ 
gramm wird gekämpft, gekämpft und 
noch einmal gekämpft. Der Spieler - 
er kann seine Spielfigur zwischen dem 
Barbaren und der schönen Mariana 
wählen — tritt und schlägt sich durch 
drei Bereiche, die ihrerseits jeweils aus 
knapp 30 Bildern bestehen. Er beginnt 
im Ödland, verweilt danach in stark be¬ 
wohnten Höhlen, ehe er dann in das 
Verlies hinabsteigt, um Drax den Gar¬ 
aus zu machen. In jedem dieser Laby¬ 
rinthe sind einige Zaubergegenstände 
einzusammeln, ohne die es nicht mög¬ 
lich ist, im Finale gegen Drax und ei¬ 
nen seiner Freunde zu bestehen. 


So rennt der Spieler also Bild für Bild 
dem nächsten Gegner in die Arme und 
muß sich seiner Haut wehren. Dies ge¬ 
schieht mit Hilfe von fünf verschiede¬ 
nen Schlägen oder Tritten. Erscheint 
ein Gegner im Bild, so wird seine 'Le¬ 
benskraft’ per Balken im oberen Teil 
des Bildschirms angezeigt. Die eigene 
noch verbliebene Stärke wird ebenfalls 
angezeigt. Bei jedem Treffer werden 
diese Balken kleiner. Verschwindet ein 
Balken einer Figur, so hat die andere 
gewonnen. Mit einem Blopp löst sich 
der Niedergeschlagene in Luft auf und 
ward nicht mehr gesehen. Diese Kämp¬ 
fe sind zu Beginn des Spiels ganz inter¬ 
essant, werden aber mit zunehmender 
Dauer stupide, weil es nicht genügend 
Aktionsmöglichkeiten gibt und auch 
die Gegner nicht gerade die Intelligenz 
mit Löffeln gefressen haben. In dieser 
Phase fehlt dem Spiel dann der ent¬ 
scheidende Pepp, denn wenn schon 
’nur’ gekämpft werden soll, dann aber 
bitte auch mit Tricks und Finessen. 
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Fazit 

Aufgrund der nicht gerade vor Ab¬ 
wechslung strotzenden Spielidee, die 
Barbarian II zugrunde liegt und der nur 
mäßigen Ausführung, schafft es dieses 
Programm nicht, aus dem Mittelmaß 
herauszuragen. Zwar wurde der 
Packung ein hübsches Poster beigelegt, 
dafür aber leider mal wieder an der An¬ 
leitung gespart. Die deutsche Überset¬ 
zung scheint von einem Franzosen aus 
dem Englischen ins Deutsche übersetzt 
zu sein, Zitat: “Während des Spiels 
können Sie mehr Leben gewinnen, 
wenn Sie alle Schädel, die Sie vor Ih¬ 
nen gelebt haben.“ Mehr Sorgfalt ist 
das Mindeste, was hier erwartet wer¬ 
den kann. 

(Joachim Freiburg/mm) 


CPC 464 Kl CPC 664 K CPC 6128 K 



Wird es Ihnen gelin¬ 
gen, Ihren Barbaren 
durch die Verliese 
von Drax zu gelei¬ 
ten ? Sicherlich keine 
einfache Aufgabe, 
die Sie sich da aufge¬ 
halst haben 
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- Das ist die Software zur PC-International - 

: Jeden Monat neu — 


DATABOX: 

— mehr als der übliche 
Softwareservice 

— bringt ergänzend 
sämtliche Listings 
der jeweiligen Zeit¬ 
schrift und alle 
Programmbeispiele 
auf Kassette oder 
auf 3’Diskette. 

—- Programme sind, 
soweit system¬ 
bedingt möglich, auf 
allen drei CPC- 
Modellen lauffähig. 
Einzelheiten entneh¬ 
men Sie bitte der 
nebenstehenden 
Aufstellung. 

— soweit die Program¬ 
me nicht Bestandteil 
einer Serie sind, 
befinden sich alle 
Programme als 
.ready to run’ auf der 
Databox. 

— erscheint jeden 
Monat und trägt das 
Titelbild des gleich¬ 
zeitig erscheinenden 
Heftes. 

— der Datenträger zur 
PC International ent¬ 
hält außerdem je¬ 
desmal ein zusätzli¬ 
ches Bonuspro¬ 
gramm, das nicht im 
Heft abgedruckt ist. 



Für alle CPCs als Kassette und 
3“-Diskette. 

Auch als Abonnement mit Preisvorteil 
erhältlich. 


Inhalt der Databox zu Heft 7/89: 


Programm 

464 

664 6128 

Im Zauberreich der Grafik 

• 

• 

9 

Kleine Grafik ganz groß 



9 

Assemblerecke 

« 

• 

9 

1-kByte-Zinsberechnung 

• 

• 

9 

1-kByte-Adreßverwaltung 

• 

• 

9 

1-kByte-Quadratische Glei- 




chungen 

9 

• 

9 

1 -kBy te-l nterpolation 

9 

• 

9 

1-kByte-Schreibtrainer 

e 

• 

9 

1-kByte-Datahexe 

• 

• 

9 

Schwarzes Gold 

• 

• 

9 

Bank-RSX 



9 

Schattenhaft 

• 

• 

9 

Schreibarbeiten 

• 

• 

9 

Pagemaker 

• 

• 

9 

Checksummer 

• 

• 

9 

Emulator 

• 

• 

9 

Bonusprogramm: 




Intelligenz-Test 

• 

• 

9 

Die DATABOX enthält noch INFO-Files (MNF) 



Einzeibezugspreise für Databox: 

3-Zoll-Diskette 


Inland: 

£<mn\prm 24,- OM 

zzfli Vöfsandkosten 4,- OM 

Ausland: 

Einzelpreis 
«gl-Versand tosten 

24,- DM 
6,- DM 

Endpreis 28,- 0M 

EndprelB 

30,- DM j 

Kassette 

Inland: 

Wreandtoston A4 

Ausland; 

' Einzelpreis 
«gl Versandtosten 

6,- DM 

Endpreis 18,- DM 

Endpreis 

20,- DM 


Za hlungs weise: 

einfachsten per Vorkasse (Verrech¬ 
nungsscheck) oder als Nachnahme zu¬ 
züglich der Nachnahmegebühr. Bei Liefe¬ 
rungen ms Ausland ist Nachnahme nicht 
möglich. 

Preisvortefl durch Databox-Abo: 

Unser beliebter Databox-Service kann 
selbstverständlich auch im Abonnement 
bezogen werden. Dadurch sparen Sie 
Mühe und haben außerdem noch einen 
Preisvorteil gegenüber dem Einzelbezug. 


pl 

Das Databox-Abo kostet: 

Als Kassette für 1/2 Jahr 
(6 Lieferungen): 

Im Inland und West-Berlin..90,— DM 

Im europäischen Ausland .100— DM 

Im außereuropäischen Ausland..120,— DM 

Als Diskette für 1/2 Jahr (6 Lieferungen): 

Im Inland und West-Berlin.150,— DM 

Im europäischen Ausland.160,— DM 

Im außereuropäischen Ausland.180,— DM 

Als Kassette für 1 Jahr (12 Lieferungen): 

Im Inland und West-Berlin.180,— DM 

Im europäischen Ausland.200,— DM 

Im außereuropäischen Ausland.240,— DM 

Als Diskette für 1 Jahr (12 Lieferungen): 

Im Inland und West-Berlin.300,— DM 

Im europäischen Ausland.320,— DM 

Im außereuropäischen Ausland.360,— DM 

Bitte benutzen Sie für Ihre Bestellung 
die Abo-Karte. 

Widerrufsrecht: Wir garantieren jedem Abonnenten das 
Recht, seine Bestellung innerhalb einer Woche nach Ab¬ 
schluß schriftlich beim DMV-Verlag, Postfach 250, 
3440 Eschwege, zu widerrufen. Die rechtzeitige Ab¬ 
sendung des Widerrufsschreibens genügt zur Fristwah¬ 
rung. 



DMV-Verlag * Postfach 250 * 3440 Eschwege 

Bitte Bestellkarte benutzen! 
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Gamers Message 


Liebe Leser, auch in dieser Ausgabe der PC-International wollen wir mit eini¬ 
gen Tips, Tricks und Karten zu den beliebtesten Spielen auf dem CPC auf¬ 
warten. In letzter Zeit waren besonders Tips zu Werewolves of London und 
Game Over II gefragt. Wir haben daraufhin für Sie interessante Tips und 
Tricks zu diesen Spielen zusammengetragen und beginnen zunächst mit 
Werewolves of London. Wenn Sie die von uns vorgeschlagenen Tips beherzi¬ 
gen, steht dem fröhlichen Aussaugen der Bürger nichts mehr im Wege... 


Werewolves of London 

Dieter und Thomas Korber aus Alten¬ 
dorfhaben sich näher mit den Werwöl¬ 
fen befaßt. Ihre Erfahrungen wollen 
wir Ihnen natürlich nicht vorenthalten. 

- Einige der Gangster findet man mei¬ 
stens in denselben Gegenden. Vier der 
Verbrecher halten sich meist in der 
Nähe von U-Bahnstationen auf. Ein 
Verbrecher ist im Hydepark zu finden, 
ein anderer treibt sein Unwesen in 
“Haus 5“. Die anderen beiden sind an 
verschiedenen Stellen auf der Straße 
anzutreffen. 

- Um aus dem Gefängnis ausbrechen zu 
können, sollte man vor dem ersten 
Streifzug die Feile mitnehmen, die sich 
im Startbild befindet. Diese sollten Sie 
zunächst im Gefängnis ablegen. Dazu 
begibt man sich in den Hydepark zum 
Gefängnisgitter und feilt dieses mit der 
Feile auf. 

- Neben der Feile sollten Sie möglichst 
auch einen Verband im Gefängnis de¬ 
ponieren. So kann man sich verbinden, 
wenn man angeschossen und in die Zel¬ 


le verfrachtet wird. 

- Zwei der Häuser kann man nur mit 
bestimmten Verkehrsmitteln errei¬ 
chen. Die U-Bahn befördert uns zu 
Haus 4, während Haus 5 nur durch die 
Kanalisation zu erreichen ist. Bei die¬ 
sen Häusern ist fast immer ein Gang¬ 
ster zu finden, so daß ein Besuch dort 
unumgänglich ist. 

- Fast alle Personen, die ein weißes 
Hemd tragen, haben eine U-Bahnkarte 
bei sich. 

- Man sollte immer einen Gulliheber 
und die Taschenlampe bei sich haben. 

- Um einen Schlüssel für die Gittertü¬ 
ren zu ergattern, muß man einen Poli¬ 
zisten aussaugen, der einen Schlüssel 
in der Hand hält. Es ist empfehlens¬ 
wert, aber nicht unbedingt notwendig, 
sich vier Schlüssel zu besorgen, die fol¬ 
gendermaßen abgelegt werden: einen 
im Gefängnis und einen davor, einen 
vor der Gittertür im Hydepark und ei¬ 
nen im Hydepark. 

- Die Polizisten mit Schlüsseln (es sind 
diejenigen, die Sie einsperren können) 
greift man am besten so an: 



Man geht von der unteren Seite an sie 
heran, etwa in Höhe der sichtbaren 
Schulter, und bearbeitet heftig den 
Feuerknopf. Allerdings ist schon ein 
bißchen Übung erforderlich, um beim 
Blutsaugen nicht aus dem Takt zu ge¬ 
raten. 

- Polizisten, die ein Gewehr bei sich 
haben, sollten Sie meiden, denn das 
Absitzen des Blutrausches kostet Zeit 
und Blut, falls Sie verwundet sind. Lei¬ 
der ist nur eine begrenzte Anzahl an 
Verbänden vorhanden. 

Leather Goddesses of Phobos 


Das Infocom Adventure “Leather God¬ 
desses of Phobos“ scheint nach wie vor 
gewisse Probleme aufzuwerfen. Mit 
Hilfe der nun folgenden Komplettlö¬ 
sung sollte es allerdings keine großen 
Schwierigkeiten mehr bereiten, das 
Adventure zu lösen. 

Zuerst muß man durch den schwarzen 
Kreis im Klosett aus dem Gefängnis 
flüchten. Unterwegs nimmt man alles 
mit und fordert Trent (bzw. Tiffany) 
auf, einem zu folgen. Auf der Venus 
gibt man “HISS“ ein (dies ist das Wort, 
daß man durch das Papier aus der Zelle 
herausbekommt) und verscheucht so 
die fleischfressende Pflanze. Jetzt geht 
man zum Haus, tauscht dort das Blitz¬ 
licht gegen die Maschine und klopft 
dann an die Tür. Nun gleich ins Labo¬ 
ratorium gehen und die Schokolade in 
den Käfig legen. Wenn man dann ein¬ 
gesperrt ist, kann man die Schokolade 
essen und danach den Käfig aufbiegen, 
um sich wieder in einen normalen 
Menschen zu verwandeln. (Zuvor aber 
den eigenen Körper erst losbinden!) 
Nun kann man den Gummischlauch aus 
dem Käfig holen und auf den Kreis stel¬ 
len. In der Vizicomn die Münze mit¬ 
nehmen und danach zum Spawning 
Ground gehen. (Unterwegs alles mit¬ 
nehmen.) Durch den Kreis gelangt man 
auf eine Raumstation. Hier darf man 
jetzt keine Zeit verlieren. Zuerst sollte 
man das Schwert an sich nehmen, da¬ 
nach das Pferd erklimmen und zur 
Main Hatch reiten. Dort die Therma- 
weste anziehen und raus ins Weltall. 
Den Gegner, der nun auftaucht, müs¬ 
sen Sie so lange attackieren, bis er sein 
Schwert verliert. Das Schwert nehmen 
Sie an sich, um es gleich dem Gegner 
wieder zurückzugeben. Dann gilt es, 
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das Monster zu töten. Der Frau bzw. 
dem Mann müssen Sie folgen, nach¬ 
dem Sie sie befreit haben. 

Sie erhalten von diesen ein Bild. Als 
nächstes begeben wir uns, mittels des 
Kreises im langen Korridor, auf den 
Mars. Hier fängt man die Maus am H.- 
D. Dock (Der Maus zuvor das Katzen¬ 
bild zeigen.) Der weitere Weg führt 
uns zur Oase. Wenn Sie hier die 
schwarze Farbe auf den Kreis schütten 
und sich dann daraufstellen, gelangen 
Sie nach Cleveland. Hier kann man zu¬ 
nächst den Sack besorgen, der beim 
Transport aller wichtigen Dinge gute 
Dienste leisten kann. Jetzt begibt man 
sich in den Raum, wo das Bett steht. 
Aus dem Laken wird schnell ein provi¬ 
sorisches Seil gefertigt, das man am 
Bett festbindet und dann aus dem Fen¬ 
ster hängt. Dann einfach nur abwarten. 



Schließlich erhält man den Scheinwer¬ 
fer und verläßt Cleveland durch den 
Kreis im Garten (Sod). Vom Hallway 
begibt man sich nun auf das Dach und 
von dort geht es zurück auf den Mars. 
Nachdem man die Creme mit Hilfe der 
Maschine umgewandelt hat, geht man 
in den Thron raum. Jetzt muß die Kö¬ 
nigstochter mit der Creme einge¬ 
schmiert werden. Danach nimmt man 
den Eighty-two Degree Angle und geht 
weiter zu den Royal Docks. Auf der 
Fähre kann dann der orangefarbene 
Schalter zum An- und Abdocken ver¬ 
wendet werden. Der rosa Schalter muß 
gedrückt werden, wenn man mit der 
Fähre einen schmalen, kleinen Kanal 
kreuzt. Am Baby dock sollten Sie kurz 
anhalten und in den Dünen die Bot¬ 
schaft und den Lippenstift an sich brin¬ 
gen. Der weitere Weg führt zum My- 


Kinda-Dock. Dort sollten Sie die Fähre 
allein weiterfahren lassen und ins Au- 
dience Chamber gehen. Die Lösung 
des Rätsels heißt übrigens sinnigerwei¬ 
se “Riddle“. Als nächstes steht ein Be¬ 
such im Harem auf dem Programm. 
Dort sagen Sie dem Wächter die Num¬ 
mer, die auf der Botschaft steht. (Num¬ 
mer verkehrt herum eingeben!) Im Ha¬ 
rem folgen Sie nun den weiteren An¬ 
weisungen, die der Botschaft zu ent¬ 
nehmen sind (Anweisung im Comic 
beachten!). Mit der Fackel und der 
Karte steigt man dann in die Katakom¬ 
ben hinunter, um sich hier das Floß und 
das Telefonbuch zu besorgen (man 
muß hierfür die Karte aus der Packung 
benutzen). Es ist sehr wichtig, daß man 
in der Katakombe bei jedem fünften 





Zug klatscht, bei jedem neunten Zug 
hüpft und bei jedem elften Zug “Kwee- 
pa“ sagt. Durch den Ladderroom ge¬ 
langt man wieder in den Palast. Man 
nimmt nun den Pin mit und steigt im 
Oriental Garden in das Loch. Man ge¬ 
langt dadurch auf die Barge zurück. 
Auf dem Pol geben Sie nun die Münze 
dem Pinguin, wickeln das Baby in die 
Decke und legen es in den Korb. Den 
Korb stellen Sie vor die Iglutür und 
warten einfach ab. Jetzt schnell die 
Baumwolle holen und durch den Kreis 
im Allusion Room zum Wattz-upp- 
Dock gehen. Nun begeben wir uns 
nach Ruined Castle und küssen den 
Frosch (Brrrr!!!!). (Zuvor Ohren, 
Nase und Augen mit Hilfe des Pins und 
der Baumwolle schließen und die Lip¬ 
pen mit dem Stift einschmieren.) 
Schließlich fahren wir mit Hilfe des 
Floßes zum Donald-Dock. Im Exit 
Shop kann man mit der Münze ein Exit 
kaufen. Die Tube muß danach im Staub 
gesucht werden. In der Tube ist der 
entscheidende Kreis... 

Game Over II 


Zu guter Letzt haben wir noch eine 
Karte zu dem Spiel “Game Over II" er¬ 
halten, die wir Ihnen natürlich nicht 
vorenthalten wollen. Aubert Marcel 
hat sie gezeichnet, und mit Hilfe dieser 
Karte sollte es nicht mehr so schwer 
sein, Game Over II bis zum Ende 
durchzuspielen. 

(mm) 
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Kleine Grafik, ganz groß 
Der SHAPE-EDITOR 


Ein Programm zur leichten Shape-Erstellung. Ob aus fertigen Computer¬ 
bildern oder selbst angefertigt, es geht ganz einfach. 


Programmbeschreibung 
Der SHAPE-EDITOR dient der Erstel¬ 
lung von Bildern und Figuren, die sich 
frei auf dem Bildschirm bewegen kön¬ 
nen und hauptsächlich in Spielen be¬ 
nutzt werden. Es können beliebig gro¬ 
ße Shapes (bis zur Größe einer Bild¬ 
schirmseite) erstellt und mit den beiden 
RSX-Befehlen PUTSH und GETSH in 
eigenen Programmen verwendet 
werden. 

Gearbeitet wird im Mode null. Damit 
stehen insgesamt sechzehn Farben zur 
Verfügung. Aufgrund der Bildschirm¬ 
aufteilung wird die Shapegröße in 
Mode-2-Zeichengröße angegeben. So 
ist es möglich, Shapes der Größe 1*1 
bis 80*25 zu definieren. Die Shapes 
werden im Speicher von Adresse 
&4000 bis maximal &A49F abgelegt. 
Damit stehen 25760 Byte zur Verfü¬ 
gung, was etwa 3220 Zeichen bzw. et¬ 
was über eineinhalb Bildschirmseiten 
entspricht. Der Editor kann bis maxi¬ 
mal 50 Shapes gleichzeitig verwalten. 
Das hängt jedoch von der Größe und 
dem Speicherdarf der einzelnen Shapes 
ab. 

Neben den Bildschirmbytes enthält je¬ 
der Shape im Speicher zwei weitere 
Bytes, die Auskunft über die Höhe und 
die Länge geben. Die mit dem SHAPE- 
EDITOR erstellten Shapes können 
ohne großen Aufwand in eigene Pro¬ 
gramme eingebunden und an jede be¬ 
liebige Adresse geladen werden, vor¬ 
ausgesetzt, sie überschreiben keine 


wichtigen Speicherinhalte. Es müssen 
dann aber die Anfangsadressen der ein¬ 
zelnen Shapes entsprechend angepaßt 
werden. 

Die MC-Routine mit den Shape-Befeh- 
len wird an die Adresse &A550 gela¬ 
den und nimmt 259 Byte Speicherplatz 
ein. Mit CALL &A550 werden die 
RSX-Befehle eingebunden. Gesteuert 
werden Menü und Cursor mit Joystick 
oder Cursortasten. 

Die einzelnen Funktionen: 

SHAPE: 

— Editieren: Funktioniert nur, wenn 
mindestens ein Shape definiert ist. 
Nach der Eingabe der Nummer er¬ 
scheint der zu bearbeitende Shape und 
ein Cursor, mit dem Farbpunkte ge¬ 
setzt werden können. Mit Taste “S“ 
kann ein neuer Stift (Pen) gewählt wer¬ 
den, und mit Taste “F“ ist es möglich, 
die Farbe (Ink) des aktuellen Stiftes zu 
verändern. ESC führt ins Hauptmenü 
zurück. Der Shape wird automatisch in 
den Speicher geschickt. 

— Neu erstellen: Hier kann ein neuer 
Shape definiert werden. Nach Eingabe 
der Länge und der Höhe in Mode-2- 
Zeichengröße gelangt man in den Edi¬ 
tor (Bedienung wie oben). Beim Ver¬ 
lassen des Editors wird der Shape hin¬ 
ter den anderen im Speicher abgelegt. 
Mit “editieren“ kann er wieder bear¬ 
beitet werden. 



Diese Shapes wurden mit dem SHAPE-EDITOR erstellt und schnell auf dem 
Bildschirm gebracht 


— Löschen: Der letzte Shape (der mit 
der höchsten Nummer im Speicher) 
kann gelöscht werden. 

DISC: 

— Catalog : Das Inhaltsverzeichnis der 
im Laufwerk befindlichen Diskette 
wird angezeigt. 

— Screen laden: Hiermit ist es mög¬ 
lich, Ausschnitte aus Bildern, die ganz 
normal auf Diskette abgespeichert 
wurden, in Shapes umzu wandeln. 
Nach dem Laden erscheint links oben 
ein Cursor, der die linke obere Ecke 
des zu definierenden Ausschnittes mar¬ 
kiert. Durch Drücken von COPY oder 
FIRE wird er festgesetzt, und ein dehn¬ 
barer Rahmen erscheint. Ein erneutes 
Drücken von COPY oder FIRE spei¬ 
chert den Inhalt des Rahmens als Shape 
ab. Jetzt erscheint wieder der Cursor 
und ein weiterer Ausschnitt kann aus¬ 
gewählt werden. (ESC -> Menü) 

— Shapes laden: Es werden Shapes ge¬ 
laden, die mit dem Menüpunkt “spei¬ 
chern“ auf Diskette abgespeichert wur¬ 
den. Die eventuell noch im Speicher 
befindlichen Shapes werden zerstört. 
Sie sollten daher vorher abgespeichert 
werden. 

— Shapes speichern: Die im Speicher 
befindlichen Shapes werden auf Disk 
abgespeichert. Dabei entstehen zwei 
Dateien. In der Datei mit der Endung 
“.SHP“ sind die Shapes in binärer 
Form abgespeichert und können in 
Verbindung mit den RSX-Befehlen in 
eigenen Programmen verwendet wer¬ 
den. Die Datei mit der Endung 
“.ADR“ enthält die Farben der sech¬ 
zehn Stifte, die Anzahl, die Endadres¬ 
sen und die Anfangsadressen der 
Shapes. Diese werden benötigt, wenn 
der Editor eine Shape-Datei laden will. 

COLOR: 

— Stift ändern: Es kann ein anderer 
Stift für den Editor gewählt werden. 

— Farbe ändern: Die Farbe des aktuel¬ 
len Stiftes kann verändert werden. 
Diese beiden Änderungen können, wie 
oben beschrieben, auch während der 
Bearbeitung eines Shapes mit den Ta¬ 
sten “S“ und “F“ vorgenommen 
werden. 

INFO: 

— Shapes auflisten: Die Adressen und 
Maße der im Speicher befindlichen 
Shapes werden der Reihe nach aufgeli¬ 
stet. 

QUIT: 

— Programm beenden: Beendet das 
Programm. Im Speicher befindliche 
Shapes sollten vorher auf Diskette ab¬ 
gespeichert werden. 
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Syntax: 

| PUTSH, links, rechts, oben, unten, 
Zieladresse (speichert den Bildschirm¬ 
inhalt in den Grenzen als Shape ab) 
links... unten: Grenzen des Shapes 
Zieladresse : Von dieser Adresse an 
wird der in den Grenzen enthaltene 
Bildschirminhalt im Speicher abgelegt. 

| SETSH, xko, yko, Quelladr (,Buffer) 
(setzt Shape an Position) 
xko, yko: x/y-Koordinaten (linke obe¬ 
re Ecke des Shapes) 

1 


Quelladr: Von dieser Adresse an steht 
der Shape im Speicher (das erste Byte 
enthält die Höhe, das zweite die Länge) 
Buffer : Muß nur mit angegeben wer¬ 
den, wenn der alte Bildinhalt vor dem 
Plazieren des Shapes an die Buffer¬ 
adresse gerettet werden soll. 

Mit | SETSH, xko, yko, Buffer kann 
der ursprüngliche Bildinhalt wieder¬ 
hergestellt werden. Dieser Parameter 
braucht jedoch nicht unbedingt mit an¬ 
gegeben werden. 


Bei den Grenzen und Koordinaten wird 
immer in Mode-2-Zeichengröße ge¬ 
rechnet. Die erste Position ist 0. x- 
Koordinaten: 0..79, y-Koordinaten: 
0..24. Bei der Plazierung eines Shapes 
sollte darauf geachtet werden, daß er 
nicht über den Bildschirm hinaus¬ 
reicht, da es sonst zu Abstürzen kom¬ 
men könnte. Der Bildschirm darf auch 
nicht gescrollt werden. 

(Jens Sohnrey/cd) 


für 6128 



10 ' Listing 1:Hauptprogramm 
15 ' SHAPE-EDITOR von Jens Sohnrey 
20 ' 1989 By Hinnerk Programs 
30 ' 

40 ON BREAK CONT 

50 ON ERROR GOTO 1150 

60 BORDER 5:DIM adr(50 ) .i(16 ) 

70 as=0:anz = 0:fs=l:endadr=&4000 

80 IF PEEK(6)=128 THEN adr=&BlC8 ELSE adr= 

&B7C3 

90 IF HIMEM=&3FFF THEN 110 

100 OPENOUT"d" .-MEMORY & 3 F F F : C LOSEOUT : LOAD " 

shape.bin",&A550:CALL &A550 

110 DATA 0,26,1,2.3,5,6,7,9,11,12,13,15,16 

,18,24 

120 FOR v=0 TO 15:READ i(v);INK v,i(v):NEX 
T 

130 DATA 4,5,3,2,2 

140 FOR v=l TO 5:READ menu(v):NEXT 

150 DATA " SHAPE "."editieren ”,"neu er 

ste 1len","loeschen 

160 DATA " DISC "."Catalog ","Screen 1 

adenShapes laden"," / speichern" 

170 DATA " COLOR "."Stift aendern“,"Farbe 
aende rn" 

180 DATA “ INFO ".Shapes auflisten 

190 DATA " QUIT ",Progr. beenden 

200 FOR v=l TO 5:FOR w=l TO menu(v):READ m 

enu$(v,w):NEXT w,v 

210 ' 

220 ’** Menue 

230 MODE 2:WINDOWK1, 1,80, 1 1,25:WINOOW#2 , 1 , 
.80,5, 10 

240 POKE ad r,0:LOCATE 5, 1: PRINT"SHAPE-EDIT 
OR":POKE ad r,2 

250 LOCATE 29,2:PRINT CHR$(164)" 1989 Hinn 
erk Programs" 

260 PLOT 0,354,1,0:DRAWR 640,0:WINDOW 1,80 
,4,25 

270 PRINT CHR$(24)SPACE$(80) 

280 FOR v=l TO 5:LOCATE (v-1)* 14 +9 , 1:PRI NT 
menu$(v,1):NEXT 
290 PRINT CHR$(24):p=1 
300 ' 

310 LOCATE (p-l)*14+9, 1:PR I NT menu$(p,l):F 
OR v=l TO 100:NEXT 

320 IF INKEY(1)=0 OR J0Y(0)=B THEN pr=l:GO 
TO 370 

330 IF INKEY(8)=0 OR JOY(0)=4 THEN pr=-l:G 
OTO 370 

340 IF INKEY(18) = 0 OR INKEY(6)=0 OR INKEY( 
9)= 0 OR JOY(0) = 16 THEN 420 
350 GOTO 320 
360 1 

370 LOCATE (p-1)* 14 + 9,1:PRINT CHR$(24)menu 
$(P.1)CHR$(24) 

380 p = p + pr:IF p= 6 THEN p=l ELSE IF p=0 THE 
N p= 5 

390 GOTO 310 
400 ' 

410 1 


[2459 ) 
[2913] 
[2091 ) 
[117] 
[323] 

[1493] 
[1348] 
[1323] 
[1877] 

[1247] 
[4982 ] 

[1727] 

[3768] 

[480] 

[3328 ] 
[4111 ] 

[5947] 

[3057] 

[ 1571 ] 
[1465] 
[3352] 

[117] 

[ 4 76 ] 

[4049 ] 

[3560] 

[ 3721 ] 

[1343] 

[1553] 
[4266] 

[920] 

[117] 

[3286] 

[ 2683 ] 

[2303] 

[2216] 

( 500] 
[117] 

[3929] 

[3763] 

[510] 

[117] 

[117] 



420 CLEAR INPUT:1=LEN(menu$(p,2)):x=(p-1)* [2524] 

14 + 9 

430 PLOT (x-2)»8,328:DRAWR (1+2)*8,0:DRAWR [1879] 
0,-(menu(p))* 16 

440 DRAWR -(1+2)*8,0:DRAW (x-2)*8,328 [2051] 

450 FOR v = 2 TO menu(p):LOCATE x,l + v:PRINT [ 4488 ] 
menu$(p,v ) :NEXT 

460 0=2 [267] 

470 1 [117] 

480 LOCATE x,o+l:PRINT CHR$(24)menu$(p,o)C [3748] 

HR$(24) 

490 FOR v=l TO 50:NEXT [1836] 

500 IF INKEY(0)=0 OR JOY(0)=1 THEN pr=-l:G [1742] 
OTO 560 

510 IF INKEY(2)=0 OR J0Y(0)=2 THEN pr=l:GO [2462] 
TO 560 

520 IF INKEY(66)=0 THEN 1110 [602] 

530 IF INKEY(18) = 0 OR INKEY(6)=0 OR INKEY{ [3919] 

9 > =0 OR JOY(0) = 16 THEN CLEAR INPUT ON p GO 
TO 600,610,620,630,640 

540 GOTO 500 [401] 

550 ' [117] 

560 LOCATE x,o+l:PRINT menu$(p,o) [3336] 

570 0=0+pr:IF o=l THEN o=menu(p) ELSE IF o [2586] 

>menu(p) THEN 0=2 

580 GOTO 480 [373] 

590 1 [117] 

600 ON 0-1 GOTO 1170,920,2410 [1414] 

610 ON 0-1 GOTO 670,1850,740,810 [1361] 

620 ON o-l GOTO 690,2320 [962] 

630 ON 0-1 GOTO 2520 [655] 

640 ON o-l GOTO 880 [722] 

650 ' [117] 

660 ’** Catalog [1307] 

670 WINDOW 1,80,11,25:CLS:CAT:WINDOW 1,80, [3211] 

4,25:GOTO 500 

680 '** Pen [ 380] 

690 C L S# 1:t$="Farbstift ("+STR$(fs ) + " ) : [4500] 

":xk=34:yk=10:GOSUB 1070 

700 LOCATE 53,10:INPUT"",f3 [1971] 

710 IF f s < 0 OR f s >15 THEN 690 [ 1690] 

720 GOTO 480 [373] 

730 '** Laden [343] 

740 GOSUB 1040:IF dat$="" THEN 1130 [2676] 

750 LOAD dat$+".shp",&4000 [1669] 

760 OPENIN dat$+".adr" [1127] 

770 FOR v=0 TO 15:INPUT«9,i(v):INK v,1(v): [3112] 

NEXT 

780 INPUT#9,anz,endadr:FOR v=l TO anz:INPU [4015] 
T # 9,adr(v):NEXT 

790 C LOSEIN:GOTO 1130 [ 1009] 

800 '* * Speichern [ 799] 

810 GOSUB 1040:IF dat$="" THEN 1130 [2676] 

820 SAVE dat$+".shp”,b,&4000,endadr-&3FFF [3454] 
830 OPENOUT dat$+“,adr" [974] 

840 FOR v=0 TO 15:PRINT#9,1(v)1:NEXT [1685] 

850 PRINT#9,anz;endadr;:FOR v=l TO anz:PRI [2934] 
NT# 9., adr(v); : NEXT 

860 CLOSEOUT:GOTO 1130 [1619] 

870 '** Ende [542] 

880 CLS#1:t$=“Wirklich beenden ? (J/N) " :xk [5311] 

=55:yk=10:GOSUB 1070 

890 i$=UPPER$(INKEY$) [1006] 

900 IF i$="N" THEN 1130 ELSE IF i$="J" THE [2855] 

N END ELSE 890 

910 ’** neu erstellen [930] 
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[—Programm 


920 CLS# 1 : IF anz = 50 THEN 2690 
930 anz=anz+l 

940 t$="Laenge (max.80): " :xk = 10:yk = 9: 

GOSUB 1070 

950 LOCATE 27,9:INPUT"",1aenge 

960 IF 1aenge <1 THEN anz = anz-1:GOTO 1130 E 

LSE IF 1aenge >80 THEN 940 

970 t$="Hoehe (max.25): " : x k = 10 : y k= 11 

:GOSUB 1070 

980 LOCATE 27, 1 1 :INPUT"",hoehe 

990 IF hoeheCl THEN anz=anz-1:GOTO 1130 EL 

SE IF hoehe > 2 5 THEN 970 

1000 adr(anz) = endad r:endadr=endadr+hoehe*l 
aenge*8+2 

1010 IF endadr>42143 THEN endadr = adr(anz ) : 
anz=anz-l:GOTO 2690 
1020 as=anz:GOTO 1220 
1030 '** Eingabe 

1040 CLS#1:t$="Dateiname (ohne Ext.):"+SPA 
CE$(10):xk=20:yk=10:GOSUB 1070 
1050 LOCATE 43,10:INPUT"",dat$:RETURN 
1060 '** Rahmen 
1070 v=LEN(t$)+2 

1080 PL0T(xk-2)*8,425-16*(yk+3):DRAWR v*8, 

0:DRAWR 0,-32 

1090 ORAWR -v*8,0:DRAWR 0.32:LOCATE xk.yk; 
PRINT t$:RETURN 
1100 ' 

1110 CLS#2:GOTO 310 
1120 • 

1130 CLS#1:GOTO 480 
1140 '** Fehler 

1150 PRINT CHR$(7)"FEHLER' : FOR v=l TO 1000 
: NEXT:RESUME 230 
1160 '** editieren 
1170 CLS#1 

1180 IF anz=0 THEN GOSUB 2650:GQTO 480 
1190 t$ ="Numme r des Shapes : ":xk=10:y 

k= 10:GOSUB 1070 

1200 LOCATE 30,10:INPUT"",as:IF as<l OR as 
>anz THEN 1190 

1210 hoehe=PEEK(adr(as)):laenge=PEEK(adr(a 
s) +1) 

1220 rg=laenge*8-l:ug=401-hoehe*16 
1230 MODE 0:PAPER 5:CLS:PAPER 0 
1240 ORIGIN 0,0,0,rg,399,ug:CLG 0 
1250 IF yk=10 THEN ISETSH,0,0,adr(as) 

1260 px = 0 :,py=399 : PLOT px , py , 1 , 1 
12 70 ' 

1280 IF (INKEY(0)=0 OR JOY(0)=l) AND py<39 
9 THEN yr=2:xr=0:GOTO 1420 

1290 IF (INKEY(2)=0 OR JOY(0)=2) AND py>ug 
THEN yr=-2:xr=0:GOTO 1420 
1300 IF (INKEY(8)=0 OR J0Y(0)=4) ANO px>0 
THEN yr=0:xr=-4:GOTO 1420 

1310 IF (INKEY(1)=0 OR J0Y(0)=8) AND px<rg 
-4 THEN yr=0:xr=4:GOTO 1420 
1320 IF JOY(0) = 5 AND py<399 AND px>0 THEN 
yr=2:xr=-4:GOTO 1420 

1330 IF JOY( 0 ) =9 AND py<399 AND px<rg-4'TH 
EN yr=2:xr=4:GOTO 1420 

1340 IF JOY(0)=10 AND py>ug AND px<rg-4 TH 
EN yr=-2:xr=4:GOTO 1420 

1350 IF JOY(0) = 6 AND py>ug AND px>0 THEN y 
r=-2:xr=-4:GOTO 1420 
1360 IF INKEY(66}=0 THEN 1450 
1370 IF INKEY(18)=0 OR INKEY(9)=0 OR INKEY 
(6)= 0 OR JOY(0) = 16 THEN 1470 
1380 IF INKEY(60) = 0 THEN 1510 
1390 IF INKEY(53)=0 THEN 1610 
1400 GOTO 1280 
1410 ' 

1420 PLOT px,py, 1 , 1 :px=px+xr:py=py+yr:PLOT 
px,py, 1 , 1 

1430 FOR v=l TO 100:NEXT:GOTO 1280 
1440 ' 

1450 PLOT px,py.1,1:!PUTSH,0,1aenge-1,0,ho 
ehe-1 ,adr(as):GOTO 230 
1460 1 

1470 PLOT px,py.fs,0:PLOT px.py.1,1 
1480 FOR v=l TO 100:NEXT:GOTO 1280 
1490 ' 

1500 1 ** Pen aende rn 
1510 GOSUB 1710 

1520 LOCATE 9,11:PRINT USING"##";fs 
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[1758] 
[1018] 
[4383] 


[2134] 

[3240] 

[4815] 

[ 1849 ] 

[5350] 

[2951 ] 

[3729] 

[974 ] 

[ 761] 
[4257] 

[2471] 

[ 742 ] 

[ 1074 ] 
[1353] 

[3688] 

[117] 

[ 543 ] 
[117] 

[ 435 ] 

[ 696] 
[3257] 

[ 1512] 

[ 373 ] 

[ 1108] 
[4150] 

[2161] 

[2584] 

[ 1053] 

[ 1844 ] 

[ 1824 ] 
[2531] 

[1408] 

[117] 

[3190] 

[4130] 

[3805] 

[3337] 

[4518] 

[2685 ] 

[2666] 

[3755] 

[ 638] 
[2294] 

[699 ] 
[ 1110 ] 

[ 347 ] 
[117] 

[3830 3 

[2124] 

[117] 

[2703] 

[117] 

[3019] 

[2124] 

[117] 

[ 833] 

[ 869 ] 

[ 1901] 


" :PAPER [1618] 


1530 LOCATE 9,12:PAPER fs:PRINT" 

0 

1540 GOSUB 1750 
1550 IF d=2 THEN 1800 
1560 f s= fs + d 

1570 IF fs=-l THEN fs=15 ELSE IF fs=16 THE 
N f s = 0 

1580 FOR v=l TO 100:NEXT:GOTO 1520 
1590 ' , 

1600 '** Ink aendern 
1610 GOSUB 1710 

1620 LOCATE 9,11:PEN fs:PRINT USING"##";i( 
fs):PEN 1 

1630 LOCATE 9,12:PRINT CHR$(242)CHR$(243) 

1640 GOSUB 1750 

1650 IF d=2 THEN 1800 

1660 1 (fs ) = i (fs ) +d 

1670 IF i(fs)=-l THEN i(fs)=26 ELSE IF i(f 
s ) = 2 7 THEN i (fS)=0 
1680 INK fs,i (fs ) 

1690 FOR v=l TO 100:NEXT:GOTO 1620 
1700 ' 

1710 !PUTSH,31,40,10,11,&A4AO 

1720 ORIGIN 0,0,248,320,239,208:CLG 0 
1730 RETURN 
1740 ‘ 

1750 IF INKEY(8)=0 OR J0Y(0)=4 THEN d=-l:R 
ETURN 

1760 IF INKEY(1)=0 OR JOY(0)=8 THEN d=l:RE 
TURN 

1770 IF INKEY(66)=0 OR INKEY(18)=0 OR INKE 
Y(9)=0 OR INKEY(6)=0 OR J0Y(0)=16 THEN d=2 
:RETURN 

1780 GOTO 1750 
1790 ' 

1800 |SETSH,31,10,&A4A0:ORIGIN 0,0,0,rg,39 

9 , ug 

1810 FOR V=1 TO 400:NEXT:CLEAR INPUT 
1820 GOTO 1280 
1830 ' 

1840 '** Screen laden 

1850 CLS#1:IF anz=50 THEN 2690 

1860 t$="Dateiname :"+SPACE$(14):xk=20:yk= 

9:GOSUB 1070 

1870 LOCATE 32,9:INPUT"",dat$ 

1880 IF dat$="" THEN 1130 
1890 MODE 0:LOAD dat$,&C000 
1900 px=0:py=0:d=0:GOSUB 2070 
1910 ' 

1920 IF INKEY(0)=0 OR J0Y(0)=1 THEN xr=0:y 
r=-1:GOTO 2010 

1930 IF INKEY(2)=0 OR JOY(0)=2 THEN xr=0:y 
r=1:GOTO 2010 

1940 IF INKEY(8)=0 OR J0Y(0)=4 THEN xr=-l: 
y r = 0:GOTO 2010 

1950 IF INKEY(1)=0 OR JOY(0)=8 THEN xr=l:y 
r=0:GOTO 2010 

1960 IF INKEY(66)=0 AND d=0 THEN 230 
1970 IF INKEY(66)=0 AND d=l THEN 2290 
1980 IF INKEY(18)=0 OR INKEY(6)=0 OR INKEY 
(9)=0 OR JOY(0)=16 THEN 2170 
1990 GOTO 1920 
2000 • 

2010 IF d=1 THEN 2090 

2020 GOSUB 2070:px=px+xr:py=py+yr 

2030 IF px < 0 OR px > 79 THEN px=px-xr 

2040 IF py<0 OR py>24 THEN py = py-yr 

2050 GOSUB 2070:FOR v=1 TO 60:NEXT:G0T0 19 

20 

2060 ' 

2070 MOVE px*8,385-py*16:DRAWR 0,14,1,1:PL 
OT px*8+4,399-py*16:RETURN 
2080 1 

2090 GOSUB 2140:px=px+xr:py=py+yr 
2100 IF px<pxl OR px > 7 9 THEN px = px-xr 
2110 IF py < py1 OR py>24 THEN py = py-yr 
2120 GOSUB 2 140:GOT0 1920 
2130 ' 

2140 PLOT pxl*8,399-py1*16,1,1:DRAW px*8+4 
,399-py1* 16 

2150 DRAW px*8+4,384-py*16:DRAW pxl*8,384- 
py* 16:DRAW pxl*8,399-py1*16:RETURN 
2160 ' 

2170 d=d+1 

2180 IF d >1 THEN 2210 
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[861] 

[918] 

[ 473] 
[2786] 

[2348] 
[117] 
[1185] 
[869 ] 
[3445] 

[1428] 
[861 ] 
[918] 

[ 5 7 7 ] 
[3826] 

[ 776 ] 

[ 2120 ] 
[117] 

[ 1267] 
[ 2051 ] 
[ 555 ] 
[117] 
[1727] 

[2539] 

[ 3281 ] 


[ 349 ] 
[117] 
[2790] 

[3146 ] 

[ 34 7 ] 
[117] 

[ 676 ] 

[1758] 

[5324] 

[1617] 
[958 ] 

[ 1662 ] 

[629] 

[117] 

[ 2650 ] 

[ 1901] 

[ 1929 ] 

[2848] 

[1288] 
[1683] 
[2135] 

[379] 

[117] 

[613] 

[1885] 

[2234] 

[1543] 

[1649] 


[117] 

[4524] 

[117] 

[1775] 

[ 1686] 

[2241 ] 

[1151] 

[117] 

[2841] 

[ 3889 ] 

[117] 

[ 705 ] 
[911] 
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»Einzelheft-/Databox-Bestellung« 

Ich bestelle folgende Einzelhefte bzw. Databoxen 
von »PC Amstrad«: 


Einzelheft 

CPC 

CPC 

Joyce 

PC 1512 

Ausgabe 

Kassette 

3"-Diskette 

3“-Diskette 

51/4“-Diskette 

6,- DM/Stck 

14,- DM/Stck. 

24,- DM/Stck. 

24.- DM/Stck. 

24.- DM/Stck. 

□ 

1/88 

□ 

□ 

□ 

□ 

□ 

2/88 

□ 

□ 

□ 

□ 

□ 

3/88 

□ 

□ 

□ 

□ 

□ 

4/88 

□ 

□ 

□ 

□ 

□ 

5/88 

□ 

□ 

□ 

□ 

□ 

6/88 

□ 

□ 

□ 

□ 

□ 

7/88 

□ 

□ 

□ 

□ 

□ 

8/88 

□ 

□ 

□ 

□ 

□ 

9/88 

□ 

□ 

□ 

’ □ 

□ 

10/88 

□ 

□ 

□ 

□ 

□ 

11/88 

□ 

□ 

□ 

□ 

_ 

12/88 

□ 

□ 

□ 

□ 

□ 

1/89 

□ 

□ 

□ 

□ 

□ 

2/89 

□ 

□ 

□ 

□ 

□ 

3/89 

□ 

□ 

□ 

D 

□ 

4/89 

□ 

□ 

□ 

□ 

□ 

5/89 

□ 

□ 

□ 

□ 

□ 

6/89 

□ 

□ 

□ 

U 

— 

7/89 

□ 

□ 

□ 

□ 


CPC-Sonderhefte (bitte ankreuzen): 

312 □ Sonderheft 6/88... 14,- DM 

313 □ Sonderheft 7/88 . -14,- DM 


Sammelordner PC 

□ Best.-Nr. 531. 2 Stck. 15,80 DM 

+ Porto/Verpackung 

(Inland 4, - DM, Ausland 6, - DM) --- DM 

Gesamtbetrag: — DM 
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2190 FOR v=l TO 500:NEXT:CLEAR INPUT 
2200 pxl = px:pyl=py:GOSUB 2070:GOSUB 2140:G 
OTO 1920 
2210 GOSUB 2140 

2220 anz = artz+ 1:IF anz>50 THEN PRINT CHR$(7 
) : anz = anz-1:GOTO 230 

2230 adr(anz)=endadr:endadr=endadr+(px-pxl 
+ 1 ) * (py-pyl+1) *8 + 2 

2240 IF endadr>42143 THEN endadr=adr(anz): 
anz=anz-l:PRINT CHR$(7):G0T0 230 
2250 !PUTSH,px1,px,py1,py|ad r(anz) 

2260 FOR v=l TO 800:NEXT 
2270 GOTO 1900 
2280 ‘ 

2290 GOSUB 2140:F0R v=l TO 400:NEXT:CLEAR 
IN PUT:GOT O 1900 
2300 ' 

2310 '*» Farbe aendern 

2320 CLS#1:t$="Neue Farbe von Stift"+STR$( 
fs) + " ( " + STR$( i ( fs) ) + •' ) : 

2330 xk=30:yk=9:GOSUB 1070 
2340 LOCATE 63,9 : INPUT , w 
2350 IF w< 0 OR w>26 THEN 2320 
2360 INK fs,w:1(fs)=w 

2370 FOR v=l TO 100:NEXT:CLEAR INPUT 
2380 GOTO 480 
2390 ' 

2400 '** Shape loeschen 

2410 IF anz=0 THEN GOSUB 2650:GOTO 480 
2420 C L S # 1:t$="Letzten Shape (Nr."+ STR$(an 
z)+") wirklich loeschen ? (J/N)" 

2430 xk=5:yk=9:GOSUB 1070 
2440 i$=UPPER$(INKEY$) 

2450 IF i$ =" N" THEN CLS#l:GOTO 480 ELSE IF 
i$< >"J" THEN 2440 

2460 t$="Shape Nr.“+STR$(anz)+" ist geloes 
c h t ! ! ! " 

2470 xk=5:yk=12:GOSUB 1070 
2480 endadr=adr(anz):anz=anz-1 
2490 GOTO 480 
2500 ' 

2510 '** Info 

2520 CLS#1:IF anz=0 THEN GOSUB 2650:GOTO 4 
80 

2530 d = 1:v=2:w=12 

2540 PLOT 0,218:DRAWR 640,0:PLOT 0,216:DRA 
WR 640,0 

2550 PLOT 0,184:DRAWR 640,0 
2560 WHILE d<=anz 

2570 IF w=12 THEN LOCATE v, 10:PR INT"Nr Ad 
r "CHR$(243)" "CHR$(240):PLOT (v+13)*8+ 

4,216:DRAWR 0,-216 

2580 LOCATE v,w:PRINT USING"##";d; 

2590 PRINT " &"HEX$(adr(d ) ,4)jUSING"###";P 
EEK(adr(d)+l);PEEK(adr(d)) 

2600 d=d+l:w=w+l 

2610 IF w=22 THEN w=12:v=v+16 

2620 WEND 


[ 1941) 
[3877] 

[863] 

[3703] 

[3285] 

[4773] 

[ 1876 ] 
[2128] 
[ 383] 
[117] 

[ 3 702 ] 

[117] 

[ 629 ] 

[5068] 

[1386] 
[ 876] 

[1584] 
[1324] 
[2387] 
[373] 
[117] 

[ 1200 ] 
[1108] 
[5151] 

[ 1946 ] 
[1006] 
[2778] 

[4959 ] 

[2086 ] 
[ 704] 
[373 ] 
[117] 

[ 576] 

[1668] 

[965 ] 
[2849 ] 

[ 1083] 
[1255] 
[4874] 


[ 2020 ] 

[4590] 

[ 1291 ] 
[ 1047] 
[390] 


Listing SHAPE 


2630 

GOTO 

480 


[ 3 73 ] 

2640 




[117] 

2650 

CLS# 1 :t$="Kein Shape definiert !! 

'. " + C 

[3343] 

HR$(7):x k = 

10:y k=13:GOSUB 1070 


2660 

FOR 

=1 TO 100:NEXT:CLEAR INPUT 


[2387] 

2670 

RETURN 


[ 555 ] 

2680 

'** Spei eher vol1 


[1608] 

2690 

t$= Speicher von ! ! ! " +CHR$ ( 7 ) : xk 

= 30 : 

[3115] 

y k=14:GOSUB 1070 


2 700 

FOR 

=1 TO 100:NEXT:CLEAR INPUT 


[2387] 

2710 

GOTO 

480 


[ 373] 

10 • 

Listing 2:0atalader zu Shape.BIN 


[3388] 

1000 

FOR 

= 8.A550 TO 8.A652 


[814] 

1010 

READ 

a$ : w=VAL ( "&H"+a$) 


[880] 

1020 

s=s+w:POKE i,w:NEXT 


[ 1039 ] 

1030 

IF s<> 26607 THEN PRINT"Fehler in 

Dat 

[2392] 

as" : ENO 




1040 

PRINT 

"ok! ...< Taste >": CALL S.BB06 


[ 1599 ] 

1050 

SAVE "shape.bin" ,b,&A 550,8.103 


[1590] 

1060 

END 



[110] 

1070 

* 



[117] 

1080 

DATA 

01,59,A5,21,6C,A5,C3.D1 


[ 426] 

1090 

DATA 

BC.61,A5.C3,70,A5,C3,B5 


[1679] 

1100 

DATA 

A5,50,55,54,53,C8,53,45 


[1080] 

1110 

DATA 

54,53,C8,00,00,00,00,00 


[1172] 

1120 

DATA 

FE,05,CO,DD,46,04,DD,4E 


[ 958 ] 

1130 

DATA 

08,CD,32,A6,DD,5E,00,DD 


[ 1224 ] 

1140 

DATA 

56,01,DD, 7E,02,90,3C, 12 


[988] 

1150 

DATA 

47, 13,00, 7E,06,91,3C, 12 


[ 1087] 

1160 

DATA 

4F,13,C5,06,08,E5,C5,06 


[1748] 

1170 

DATA 

00,ED,BO,CI ,E1, 7C,C 6,0 8 


[ 5 78 ] 

1180 

DATA 

67,10,F2,2A,46,A6,7D,C6 


[1163] 

1190 

DATA 

50,6F,7C,CE,00,67,22,46 


[1082] 

1200 

DATA 

A6,C1,10,DE,C9,FE,04,20 


[1206] 

1210 

DATA 

3C,DD,46,04,DD,4E,06,DD 


[ 1436] 

1220 

DATA 

66.03,DD, 6E,02,DD,22,48 


[ 839 ] 

1230 

DATA 

A6,DD,21,4A,A6,DD,73,00 


[ 1076] 

1240 

DATA 

DD,72,01,DD,70,04,DD,71 


[ 493] 

1250 

DATA 

08,7E,80,3D,DD,77,02,23 


[ 1215] 

1260 

DATA 

7E,81,30,DD,77,06,3E,05 


[1103] 

1270 

DATA 

CD,70,A5,DD,2A,48,A6,DD 


[2017] 

1280 

DATA 

23,DD,23,3E,03,FE,03,CO 


[1540] 

1290 

DATA 

DD,46,02,DD,4E,04,CD,32 


[ 1018 ] 

1300 

DATA 

A6,DD,5E,00,DD,56,01,1A 


[ 856 ] 

1310 

DATA 

47,13,1A,4F,13,C5,06,08 


[ 1033 ] 

1320 

DATA 

E5,C5,06,00,EB,ED,BO,EB 


[ 1688 ] 

1330 

DATA 

CI,El,7C,C6,08,67,10,FO 


[ 1420] 

1340 

DATA 

2A,46,A6,7D,C6,50,6F,7C 


[1431 ] 

1350 

DATA 

CE,00,67,22,46,A6,CI,10 


[ 869 ] 

1360 

DATA 

DC,C9,26,00,68,29,29,29 


[1173] 

1370 

DATA 

29,5D,54,29,29,19,59 , 16 


[ 797 ] 

1380 

DATA 

CO,19,22,46,A6,C9,00,00 


[1196] 

1390 

DATA 

00,00,00,00,00,00,00,00 


[1005] 

1400 

DATA 

00,00,00 


[453] 

Listing SHAPE 






Software 

LoccScript 2.26 
24 Pin Driver 
LocoFoTitl*2*24 
LocoSpeU 
LocoHail 
LocoFile 
LocoKey 

“* J 


HERDER 


NACHRICHTENTECHNIK 


BRANFELDER CH.215 
..... &-26WHAMBURG71 
'I TEL: 040-641 17 79 
FAX.: 040-641 17 76 


* STARDRIVE 5.25“-Laulworke für CPC 6/464/6128 jetzt auch In 2x360-KBAuslührung mit: 

- 12 Monate Garantie, Geräte aus industrieller Produktion 

- Formschönes Flachgehäuso mil Int Breitband-LED-Anzelge 

- Sehr leiser Laut, Netzteil, Schalter etc. 

Eingebauter Diskettenseitenumschalter (alle 5.25*- u. 3.5''-Laulworko) 


- Sofortige Botriebsborcitschaft 

Allo Kabel und Bedienungsanleitung Im Llelerumlang enthalten 


35*-Zweltlaulwerk <720 KB) 

nur 298.- DM 

5.25"-Zweitlauhverk (720 KB) 

nur 348. - DM 

5.26“ Extemal Dlek Drive: 

(s Tost In H. 10/88 S. 40: Fazit: "sehr empfehlenswert*) 
als Eretlaufwerk lür CPC 464 

Incl. Handbuch. Systemdiskette. Controller 

nur 498, - DM 

als Doppellaufwerk 3* + 5,25* f. CPC 464 

Incl. Handbuch. Syslemdlskette, Controller 
(s. Test PC 5/89, S. 62/63: Das Urteil: -prima«) 

Weitere Angebote (Auszug aus unserer kostenl. Liste); 

nur 698, - DM 

- Stardrive 3“-Zweltlau(werk zum Superpreis 

nur 258, - OM 

- Stardrive 5 1/4"-Z\veltlaulwork zum Superpreis 

nur 270, - DM 

(mit TEAC-Laufwerk DM 298,-) 


Preis zzgl. Porto/Verpackung, LlstefProspekte kostenlos 


G + L electronic 


Com puterhardware 


6759 Hefersweiler * Seelenerstraße 4 * Tel: 

0 63 59/25 82 
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L 


Sie werden weder Raumschiffen, bösartigen Aliens noch gruseligen Mon¬ 
stern oder verrückten Weltherrschern begegnen. Dieses Spiel spiegelt die 
harte Realität des Geschäftslebens w ider. Sie kämpfen als Boss eines Öl¬ 
unternehmens gegen die immer stärker werdende Konkurrenz. Dieses Spiel 
um Geld und Macht hat uns so gut gefallen, daß wir es einfach abdrucken 
mußten. Die Länge von fast 25 kßyte sollte kein großes Hindernis sein, da 
diese Simulation kommerziellen Charakter besitzt und damit einen sehr 
großen Spielspaß garantiert. Haben Sie erstmal ein paar Stunden an diesem 
Spiel absolviert, dann werden Sie es verstehen. Wir w ünschen Ihnen auf je¬ 
den Fall recht viel Vergnügen! 


38 PC 7’89 






ommt cs an. Spckulie- 
Börse, erschließen Sie 
sabotieren Sic die Kon- 
iben alle Fäden in der 


Boerse 


4SBÖ 


Ihnen wird ein Grundkapital von 
200000 Einheiten zur Verfügung ge¬ 
stellt. Nutzen Sie es sorgfältig, die 
Bank gibt nicht mehr als 100000 Kre¬ 
dit. Geben Sie acht beim Sabotieren. 
Dabei könnten Sie leicht bankrott ge¬ 
hen. Sie haben das große Glück, sich 
als Ölprinz zu versuchen. Sie sind der 
Boss eines Ölunternehmens am Anfang 
Ihrer Karriere. Sie haben ein bestimm¬ 
tes Grundkapital und alle Fäden in der 
Hand. Allein von Ihnen hängt es ab. ob 
Sie erfolgreich sind oder nicht. Ober¬ 
stes Ziel sollte sein, die Konkurrenz 
nach Ablauf der Spielzeit hinweggebla¬ 
sen zu haben (mindestens 45 Minuten 
Spielzeit nötig!). Waren Sie erfolg¬ 
reich genug, können Sie sich in das gol¬ 
dene Buch der besten Manager ein¬ 
tragen. 


2 CO 3 


Spekulieren heißt 
Gewinnen oder Un¬ 
tergang. Die richtige 
Finnen wähl kann 
dem Gkliick einen 
Schuhs geben 


zu Ihrem Zielhafen. Über deren Ein- Das goldene Buch 
treffen wird Sie das Zielland unter¬ 
richten. 

Marktpreise: Es wird eine Tabelle aller 
Zielländer (Zielhäfen!) mit dem Kauf¬ 
preis pro Tonne Rohöl ausgegeben. 

Konkurrenz sabotieren: Ist die Sabota¬ 
ge gelungen, verliert die Konkurrenz 
den ausgedruckten Betrag; wird es ent¬ 
deckt, zahlen Sie diesen Betrag. 

Börse: Der Kurs der Aktie wird gra¬ 
fisch angezeigt, dann der Name und 
schließlich Ihr Aktienanteil an der je¬ 
weiligen Aktie. Wählen Sie nun die Ak¬ 
tie, und entscheiden Sie dann über 
Kauf oder Verkauf und die Anzahl. 

Ölfelder verkaufen: Hier können Sie 
nach gelungenem Management Ihre 
Quellen für den Kaufpreis wieder ab¬ 
stoßen. Dies sollte man kurz vor dem 
Ende der Spielzeit durchführen. 

Um einen Menüpunkt zu verlassen, nur 
< ENTER > drücken. Um das Spiel zu 
beenden, < > drücken. 


Wenn Sie besonders erfolgreich wa¬ 
ren, können Sie sich in dem “Goldenen 
Buch“ (Highscore-Liste) verewigen. 
Kassettenbesitzer müssen ihre High- 
score-Tabelle an die richtige Stelle spu¬ 
len (Zählwerk beachten!). 


Informationen zu den 


Hinweise zum Abtippen 


Menüpunkten 


Tippen Sie zuerst Listing 1, das Haupt- 
programm, ab und speichern es unter 
“Oelmanag.Bas“ ab. Listing 2 kann si¬ 
cherheitshalber unter “oel2.Bas“ abge¬ 
speichert werden (bei Kassetten sollte 
eine zweite benutzt werden). Starten 
Sie nun das Listing 2. Nachdem es ge¬ 
startet wurde, wird eine Bestenliste ge¬ 
neriert. Diese muß sich hinter Listing 1 
befinden. Nun können Sie Listing 1 
starten. 

Ab nun heißt es, “Kampf der Konkur¬ 
renz“. 

Wir wünschen Ihnen eine steile Kar¬ 
riere. 


1. Situationsbericht: 

Hier wird Ihr Kontostand, Ihr Öl Vor¬ 
rat, Ihre Schiffe und Ihr Zielhafen an¬ 
gezeigt. 

2. Konkurrenz: 

Sie sehen den Kontostand der Konkur¬ 
renz und deren finanzielle Situation. 

3. Bohren: 

Geben Sie hier den gewünschten Bohr¬ 
ort an. Je teurer Sie kaufen, desto bes¬ 
ser die Förderung. Beispiel: Alaska 
fördert mehr als Jordanien. Warten Sie 
nun den Verlauf der Bohrung ab. Ihr 
Mitarbeiter wird Sie über den Ausgang 
der Bohrung informieren. 

4. Ölkontrolle: 

Ihre gesamten Ölquellen werden über¬ 
sichtlich in einer Tabelle dargestellt. 
».Vertragspartner: 

Wählen Sie hier den Zielhafen für Ihre 
Schiffe durch Eingabe der Kennzahl. 

6. Schiffe: 

Hier gelangen Sie in ein Untermenü 
mit folgenden Funktionen: 

Schiffe kaufen: Kaufen Sie sich Schiffe, 
um Ol zu verladen. 

Schiffe verkaufen: Verkaufen Sie über¬ 
zählige Schiffe wieder. 

Schiffe beladen: Verladen Sie das Roh¬ 
öl auf die Schiffe. 

Schiffe senden: Schicken Sie Ihre Flotte 


Bohrung anbringen 


Folgende Oelfelder sieben /.ur Ai 


Alaska 

Kanada 

Nordsee* 

AraJa i evi 

Lxbyen 

Russland 

Iran 

ftegypten 
S yr ?. en 
J cnrci a r< i i?n 


1GHÜW00 
9 SOOB 
30000 
80OOO 

-:.;i 

43OO0 
: ■ :1 
3KOOÜ 
30000 


K or, t o »t~a nd : 37440 


Die Auswahl des 
richtigen Landes ist 
oft entscheidend 


7'89 PC 39 








[—Programm 


__ Schiffe kaufen _ 

I>«t*r I«? K.iul j'X't*» •. ‘Ichiifpr. 

23253 

M Schiffe !i i <■. 

live Konto, l-.imi 4H*vm 

Mi-vimm chhi !> ij, '(ii u, i V !ri:v. i, i.«-. vt . 
rt «rwfce I Im: Hi: i, R f .1.1 <»K’ *h.hs *. K -M'ii ‘in ' ’ 

Ihr KuntO]il.vnd hetr^e«|t IttllJfv 
Sn* In:-» 1 1 y.im um» 3 leert* Schiffe 


oi.' 


Für den Anfang sollte man wenige Transportschiffe kaufen 


Hinweis: 

Sind Sie im Besitz eines CPC 464, 
müssen Sie zu allererst den Emulator 
laden. 


Da das Programm für den Diskettenbe¬ 
trieb ausgelegt wurde, treten beim Be¬ 
trieb von einem reinen Kassettenlauf¬ 
werk, also ohne Diskettenkontoller, 
Fehlermeldungen auf. Der Fehler tritt 


aber nur beim Abspeichern der High- 
score-Liste auf. 

Deshalb müssen Sie darauf achten, daß 
der Befehl | ERA in der Zeile 7050 
nicht mit abgetippt wird. Haben Sie es 
geschafft, den Highscore zu erringen, 
dauert es einen Augenblick, bis das 
goldene Buch geholt wird. Aber dann 
dürfen Sie sich in diesem Buch verewi¬ 
gen. Kassettenbesitzer sollten even¬ 
tuell eine gesonderte Kassette in Reich¬ 
weite halten. Eleganter ist es, wenn der 
neue Highscore sich direkt hipter dem 
Hauptprogramm befindet. So ist ge¬ 
währleistet, daß beim erneuten Spielen 
sich der aktuellste Spielstand bei Pro¬ 
gramm befindet. Diese Reihenfolge 
muß auf Kassette eingehalten werden: 
Oelmanag. B AS ,oeltable. DAT 

(Alex Borst/cd) 


Besitzen Sie keinen Emulator, so können Sie diesen mit 
einem Frciumschlag an fordern. Der Emulator befindet 
sich auch auf der Databox. 


für 464-664-6128 




ZI 


464 mit Emulator 


10 ' 000000000000000 
20 ' 00 00 

30 ' 000 OEL-MANAGER 000 

40 '0000 VON 0000 

50 ' 000 ALEX BORST 000 

60 ' 00 OO 

70 000000000000000 

80 ' 

90 '<=== Spieldauer fragen ===> 

100 ' 

110 a$=INKEY$ 

120 FOR t=l TO 2000:NEXT:MODE 2:INK 0,0:BO 
RDER 0:INK 1,26:PEN 1 

130 LOCATE 1 , 1 :INPUT"Wieviel Zeit investie 
ren Sie (std:min Bsp.: 00:30)";z$ 

140 IF LEN(z$)< 5 THEN PRINT"Bitte nochmal" 

:GOTO 120 

150 IF MID$(z $,3,1)< >": THEN PRINT"Bitte 
nochma1":GOTO 120 

160 std=VAL(LEFT$(z$,2)):minut=VAL(RIGHT$( 
z$,2)) 

170 IF minut<11 AND std = 0 THEN PR I NT"Das k 
ann ja wohl nich Ihr Ernst sein (also sowa 
s) !":GOTO 120 

180 IF std >0 THEN PRI NT"Bei so langer Spie 
ldauer muessen Sie ja mindestens Oelprinz 
we rden . " 

190 IF minu t < 40 AND std = 0 THEN PRINT"Das k 
oennte knapp werden !" 

200 IF minut>=40 AND std=0 THEN PRINT"Das 
koennte so ungefaehr hinhauen." 

210 std2=std:minut2=minut 
220 ' 

230 '<=== Hlghscores initialisieren ===> 
240 ' 

250 DIM name$(16) ,ge 1d( 16 ) ,konk( 16 ) ,dauer$ 
(16) 


[1027] 
[ 244 ] 

[ 1391] 
[ 1095 ] 
[ 1595 ] 
[244] 
[1027] 
[117] 

[ 1765 ] 
[117] 

[ 2 78] 

[4004] 

[4903] 

[2834 ] 

[4449] 

[2385] 

[5583] 


[5237] 


[3317] 

[3964] 

[ 1364 ] 
[117] 

[ 1000 ] 

[117] 

[3031] 


Listing Schwarzes Gold 


260 GOSUB 6960'Highscores laden [2591] 

270 ' [117] 

280 '<=== Titel ===> [1133] 

290 ' [117] 

300 SYMBOL 254,0,32,112,241,251,31,15,7 [1809] 

310 SYMBOL 253,0,0,0,16,184,252,254,253 [1876] 

320 SYMBOL 252,7,3,2,2,4,4,5,4 [1681] 

330 SYMBOL 251,252,248,252,148,148,164,4,8 [2170] 
340 SYMBOL 250,12,12,4,28.14,12,30,18 [1508] 

350 SYMBOL 249,24,60,60,24,36,52,44,36 [2142] 

360 SYMBOL 248,86,74,86,102,153,153,165,19 [1817] 
5 

370 MODE 0 [507] 

380 INK 0,0:INK 1,15:INK 2,6:INK 3,3:INK 4 [3895] 


, 1 4:INK 5,2:1NK 6,23:INK 7,13:INK 8,24:INK 
9 , 18 

390 a$="OEL-MANAGER":x=148:y=370:G05UB 700 [3300] 
400 a$=STRING$(20x = 0:y=350:GOSUB 700 [2654] 


410 a$="5.7.87":x=4:y=320:GOSUB 700 [1859] 

420 a$="V0N":x=220:y=290:GOSUB 700 [1573] 

430 a$="ALEX BORST":x=320:y=260:GOSUB 700 [2072] 

440 p=l [260] 

450 FOR y=50 TO 200 STEP 2 [655] 

460 MOVE 0,y,p:DRAW 640,y [1463] 

470 IF y=15 0 THEN p = 2 [ 1034] 

480 IF y=180 THEN p=3 [966] 

490 NEXT [350] 

500 FOR p=l TO 100:P LOT RND*640,RND*150 + 50 [2650] 
,0:NEXT 

510 FOR x=10 TO 19 STEP 3 [1156] 

520 PEN 7,1:LOCATE x,19:PRINT CHR$(254)+CH [6262] 
R$(253):LOCATE x,20:PRINT CHR$(252)+CHR$(2 
51 ) 

530 NEXT [350] 

540 LOCATE 9,20:PEN 8:PRINT CHR$(250) [1441] 

550 x = 2:y=14:GOSUB 770 [ 1326 ] 

560 x=5:y=15:GOSUB 770 [1284] 

570 x=l:y=l7:GOSUB 770 [1741] 

580 x = 6:y=16:GOSUB 7 70 [1283] 

590 x = 3:y=16:GOSUB 770 [ 1237 ] 

600 PEN 9,0 [685] 

610 st=l [215] 


Listing Schwarzes Gold 
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Programm—i 


620 a$=STRING$(20,".")+"<S> fuer Start, < 
I> fuer Infos, <H> fuer Hlghscores..."+ST 
RING$(20,".") 

630 LOCATE 1,24:PRINT MID$(a$,st,20):St=st 
+ 1 : IF s t > 80 THEN st=l 
640 a$= LOWER$(INKEY$ ) 

650 IF a$= " " THEN 620 
660 IF a$="s" THEN 840 

670 IF a$="h“ THEN GOSU8 7150:CALL &BB06:G 
OTO 370 

680 IF a$ = " 1" THEN 5760 
690 GOTO 620 
700 TAG 

710 GRAPHICS PEN ,1 
720 MOVE x,y,5:PRINT a$; 

730 MOVE x-4,y+2,4:PRINT a$; 

740 MOVE x-8,y + 4,6:PRINT a$ ; 

750 TAGOFF 
760 RETURN 

770 LOCATE x,y:PEN OrPRINT CHR$(249) 

780 LOCATE x,y+l:PRINT CHR$(248) 

790 RETURN 
800 ENO 
810 1 

820 '<=== Initialisierung ===> 

830 1 

840 ENV 1,100,-1,10 
850 RANDOMIZ E TIME 

860 SYMBOL 255,0,255,255,255,255,255,255,2 
55 

870 MODE 1 
880 BORDER 0 
890 PAPER 0 

900 INK 0,0:INK 1,23:INK 2,11:INK 3,2 
910 GRAPHICS PEN 1 
920 CLS 
930 ' 

940 DIM fei der(100) ,fmenge(100),ort$(10),p 
reis(10),zeit(20),bort$(20),bpreis(20),feh 
1 $ < 8 ) ,land$(5),vpreis(5) ,beisch(100) ,zesch 
(100),aktie$(6),stand(6),gekauft(6) 

950 FOR x=l TO 10 

960 READ ort$(x),preis(x) 

970 NEXT 

980 FOR x=l TO 8 
990 READ fehl $(x) 

1000 NEXT 

1010 FOR x=l TO 5 

1020 READ 1and$(x):vpreis(x)=ROUND(RND*50+ 
1) 

1030 NEXT 

1040 FOR x=l TO 6 

1050 READ aktie$(x):stand(x)=ROUND(RND*499 
9) 

1060 NEXT 

1070 DATA Alaska,100000,Kanada,95000,Nords 
ee,90000,Arabien,80000,Libyen,65000,Russla 
nd,55500,Iran,49000,Aegypten,40000,Syrien, 
35000,Jordanien,30000 

1080 DATA Feuer,Bohrerbruch,Sabotage der K 
onkurrenz.Maschinenausfal1,B1itzeinschlag, 
Erdbeben.Tornado,Meuterei 

1090 DATA Eng 1 and,Frankreich,Ita1ien,Oeste 
r reich,Spanien 

1100 DATA Franz & Co,Maier-Oe1,Lion-0i1 Ag 
,Oe 1-TGH,Petro 1 Ag,Sprit Gmbh 
1110 kontol=200000:konto2=200001:tendenz$= 
" konstant":spreis = 25000:partner$="niemand" 
1120 EVERY 50,1 GOSUB 1890 
1130 ' 

1140 '<=== Menueauswahl ===> 

1150 ' 

1160 CLS 

1170 PEN 1:PRINT T AB(15)"M E N U E" 

1180 MOVE 0,380:DRAW 640,380 
1190 PRINT:PRINT 
1200 PEN 2 

1210 PRINT"Situationsbericht. 

. . < 0 > " 

1220 PRINT 

1230 PRINT"Kontostand der Konkurrenz sehen 
. . < 1 > " 

1240 PRINT 


[6156] 


[2421] 

[960] 

[815] 
[1199] 
[4165 ] 

[1568] 

[409] 

[318] 

[ 1000 ] 
[ 868 ] 

[ 1523 ] 
[834] 
[1066] 
[ 555 ] 

[ 1545 ] 
[ 1144 ] 
[ 555 ] 
[ 110 ] 
[117] 

[1620] 
[117] 

[ 322] 

[1777] 

[2723] 

[ 506] 

[ 1008 ] 

[816] 

[ 7.33] 
[949 ] 
[91] 
[117] 

[7446] 


[803 ] 

[1157] 

[350] 

[ 706 ] 

[1016] 
[ 350] 

[ 709 ] 
[ 2212 ] 

[ 350 ] 
[716] 

[3200] 

[350] 

[7850] 


[5968] 


[ 3302 ] 

[4138] 

[ 6906 ] 

[823 ] 
[117] 

[ 1043] 

[117] 

[91] 

[1966] 
[1218] 
[ 743 ] 

[ 548 ] 
[3631] 

[361] 

[2800] 

[ 361 ] 


1250 PRINT"Bohrung anbringen. 

. . < 2 > " 

1260 PRINT 

1270 PRINT"0elstand Kontrollieren. 

. . < 3 > " 

1280 PRINT 

1290 PRINT"Vertragspartner. 

. . < 4 > " 

1300 PRINT 

1310 PRINT"Schif f e. 

. . < 5 > " 

1320 PRINT 

1330 PRINT"Marktpreise sehen. 

. . < 6 > " 

1340 PRINT 

1350 PRINT“Konkurrenz sabotieren. 

. . < 7 > " 

1360 PRINT 

1370 PRINT"Boerse. 

. .<8> " 

1380 PRINT 

1390 PRINT"Oelfe1 der verkaufen. 

. . <9>" 

1400 PRINT 

1410 PEN 3:PRINT"Bitte waehlen Sie 0-9 :"+ 

CHR$(14 3)+CHR$(8 ) ; 

1420 wahl$=INKEY$ 

1430 IF ende=1 OR konto1<-100000 OR LOWERS 
(wahl$)="q" THEN 6270 

1440 PEN 2:LOCATE 29,24:PRINT USING: 
##";std;minut;sek:PEN 3 
1450 x=0 

1460 x = x + l:zeit(x) = zeit(x )-l 
1470 IF zeit(x)=0 THEN 2460 
1480 IF zeit(X)<0 THEN zeit(x)=0 
1490 IF x < 9 THEN 1460 

1500 ze=ze+l:IF ze>5 THEN ze=0:GOSUB 1950 
1510 IF sendf1ag=1 THEN ze2=ze2+l:IF ze2>4 
0 THEN ze2=0:GOTO 4190 

1519 IF kontol> konto2 THEN add=600000 ELSE 
add=30000 

1520 IF tendenz$= " ste1gend" THEN konto2 = ko 
nto2+ROUND(RND*add) 

1530 IF tenden2$="fa)1end" THEN konto2=kon 
to2-ROUND(RND*3000) 

1540 IF wähl$="" THEN 1420 

1550 IF wahI $ <"0" OR wahl$>"9" THEN 1420 

1560 LOCATE 24,24:PRINT wahl$ 

1570 wahI=VAL(wah!$)+l 

1580 ON wähl GOSUB 1640,1780,2140,2740,292 
0,3130,4600,4740,4960,5480 

1590 LOCATE 13,25:PEN 3:PRINT"Taste drueck 
en !":CALL &BB06 
1600 GOTO 1160 
1610 ' 

1620 ‘<=== Kontostand sehen ===> 

1630 1 
1640 CLS 

1650 PEN 1:PRINT TAB(12)"Kontostand sehen" 
1660 MOVE 0,380:DRAW 640,380 
1670 PRINT:PRINT 

1680 PEN 2:PRINT"Ihr aktueller Kontostand 
:"kontol 

1690 PRINT:PRI NT"Ihr gesamter OelVorrat 
: "ton"t." 

1700 PRINT:PR I NT"Ihr Vertragspartner 
: ";partner$ 

1710 PRINT:PRINT"Ihre Schiffszahl 
: "sanz + gebraucht 

1720 PRINT:PRINT"Anzahl der leeren Schiffe 
: " ; sanz 
1730 RETURN 
1740 GOTO 1740 
1750 1 

1760 '<=== Kontostand der Konkurrenz sehen 

1770 • 

1780 CLS 

1790 PEN 1:PRI NT TAB(7 )"Kontostand der Kon 
kurrenz" 

1800 MOVE 0,380:DRAW 640,380 
1810 PRINT:PRINT 


[3576] 

t 361 ] 

[ 342 7 ] 

[361] 

[3666] 

[ 361 ] 
[2662] 

[361 ] 

[ 3916] 


[361] 

[3728] 

[ 361 ] 
[2946] 

[361 ] 

[ 3439 ] 

[361 ] 
[2316] 

[ 987 ] 

[ 2093] 

[ 3429 ] 

[351] 

[ 3361 ] 
[1246] 
[1533] 
[1231 3 
[2217] 
[ 2878 ] 

[1815] 

[4262 ] 

[3834 ) 

[1366] 
[ 2197 ] 
[1175] 
[1363] 
[ 2046 ] 

[ 3492 ] 

[ 307 ] 

[117] 

[ 2210 ] 

[117] 

[91] 

[2109] 

[1218] 

[ 743] 

[2620] 

[2807] 

[4350] 

[ 2699 ] 

[3493] 

[ 555 ] 
[351] 
[117] 
[3518] 

[117] 

[91] 

[3992] 

[1218] 
I 743 ] 
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I—Programm 



Vier Super-Programme 
zum kleinen Preis. 

Die neue CPC-Spielebox enthält vier aus¬ 
gesuchte TOP-Programme der Spitzenklasse. 
Da ist für jeden das Richtige dabei! 


1. Alphajet 

Lieben Sie Abenteuer und Gefahren im Weltraum? Dann steigen 
Sie in den neuentwickelten Alphajet und erforschen die 
interstellaren Sonnensysteme. Vielfältige Gefahren lauern auf Ihrer 
Mission. Erleben Sie mit Alphajet ein hochklassiges Actionspiel mit 
außergewöhnlicher Grafik und vielen tollen Effekten. 

2. Telefomania 

Man schreibt das Jahr 
1992. Das sogenannte 
Datenzeitalter hat be¬ 
gonnen. Alles kann per 
Datenübertragung von 
zu Hause aus erledigt 
werden. Das Problem: 

Einige Gebiete wurden 
bei der Vernetzung 
schlichtweg vergessen. 

Ihre Aufgabe besteht 
nun darin, als Einsatz¬ 
leiter vor Ort diese Vernetzung vorzunehmen. Verhandeln Sie also 
direkt mit den Hausbesitzern über Tarife und Anschlußmöglich¬ 
keiten. Gutes Gespür ist hier gefragt, denn nicht jeder will auch an 
das Datennetz angeschlossen werden. Mit Telefomania erwartet 
Sie eine völlig neue Spielidee, die auch Sie begeistern wird. 

3. Kampf den Insekten 

Übernehmen Sie die Rolle eines berühmten Gärtners. Ihre 
Aufgabe besteht in der behutsamen Pflege des weltschönsten und 
mehrfach preisgekrönten Gartens von Lord CPC. Erschwert wird 
dies durch verschiedenartige Insekten, die immer wieder an Ihren 
herrlichen Pflanzen nagen und diese zerstören. Durch gezielten 
Einsatz von Dünger und Sprays (ohne Treibgas) können Sie den 
unliebsamen Zeitgenossen zu Leibe rücken. Ein erlebnisreiches 
Geschicklichkeitsspiel für die ganze Familie mit vielen 
Überraschungen erwartet Sie. 




4. Funbouncer 

Ihr bester Freund wurde 
vom bösen Zauberer 
entführt. Mutig und 
stark, wie Sie nun 
einmal sind, machen 
Sie sich sofort auf die 
Suche nach Ihrem 
verschwundenen 
Kumpan. Als Sie das 
Schloß des Zauberers 
erreichen, werden Sie 
und Ihr Freund in einen 
feuerroten Ball verwandelt. In dieser Gestalt müssen Sie nun den 
geheimen Ausgang des Gewölbes finden, um den Fluch zu 
verlieren. Doch Vorsicht: Vielfältige Gefahren wie zum Beispiel 
scharfe Felskanten oder rostige Nägel machen Ihnen neben 
anderen Zeitgenossen, die ebenfalls verzaubert wurden, das 
Leben schwer. Funbouncer ist ein schnelles und farbenfrohes 
Actionspiel mit vielen Levels und eigenem Bild-Construction-Set. 


Für alle CPCs nur als 3“-Diskette 
Best.-Nr.: 1012 


39,- DM (unverbindliche Preisempfehlung) 


Wenn Sie über den DMV-Bestellservice bestellen, gilt folgendes: 

Inland: 

Ausland: 


Einzelpreis 39,- DM 

Einzelpreis 

39,- DM 

zzgl. Versandkosten 4,- DM 

zzgl. Versand kosten 

6,- DM 

Endpreis 43,- DM 

Endpreis 

45.- DM 


1820 PEN 2:PR I NT"Ko n to der Konkurrenz :"ko 

nto 2 

1830 PRINT 

1840 PRI NT"Tendenz "tendenz$ 

1850 RETURN 
1860 ' 

1870 '<=== Oelstand erhoehen und Uhr ===> 
1880 ' 

1890 FOR f=l TO 10:ton=ton+fmenge(f ):NEXT 
1900 se k = se k-1:IF sek<0 THEN sek = 59:minut= 
minut-l:IF minut<0 THEN mi nut = 59:std=std-1 
:IF std <0 THEN e nd e = 1 
1910 RETURN 
1920 1 

1930 '<=== Konkurrenz, Boerse und Schiffsp 
reise = = = > 

1940 ‘ 

1950 r=ROUND(RND*3) 

1960 IF r = 0 THEN t enden z$=''kons tan t" 

1970 IF r=1 OR r=2 THEN tendenz$="steigend 

1980 IF r=3 THEN tendenz$="fa11end 
1990 spreis=ROUND(RND*5000)+20000 
2000 FOR x=l TO 6 

2010 IF RND*10>5 THEN stand(x ) = stand(x) + RO 
UND(RND*100) ELSE stand(xInstand[x)-ROUNO( 
RND*100) 

2020 IF stand(x)<94 THEN stand(x)=94 
2030 IF Stand!x)>4999 THEN stand(x)=4999 
2040 NEXT 
2050 FOR x=l TO 5 

2060 IF RND*10>5 THEN vpreis(x)=vpreis(x)+ 
ROUND(RND* 5) ELSE vpreis(x) = vpreis(x)-ROUN 
D(RN D* 5) 

2070 IF vpreis(x)>99 THEN vpreis(x)=99 
2080 IF vpreis(x)<l THEN vpreis(x)=l 
2090 NEXT 
2100 RETURN 
2110 ' 

2120 '<= = = Bohrung anbringen = = => 

2130 ' 

2140 CLS 

2150 PEN 1:PRINT TAB(10 )"Bohrung anbringen 

2160 MOVE 0,380:DRAW 640,380 
2170 PRINT:PRINT 

2180 PEN 2:PRINT”Folgende Oelfelder stehen 
zur Auswahl :" 

2190 MOVE 130,310,3:DRAW 480,310:DRAW 480, 
136:DRAW 130,136:DRAW 130,310 
2200 GRAPHICS PEN 1 
2210 WINDOW 10,40,7,25 

2220 FOR x=l TO 10:PRINT ort$(x),prelstx): 
NEXT 

2230 WINDOW 1,40,1,25 
2240 PEN 2 

2250 LOCATE 1 ,2 1 :PRINT"Kontostand :"kontol 
2260 PEN 3 

22 70 LOCATE 1,19:PRINT STR ING$(40,32) : LOCA 
TE 1,19:INPUT"Waehlen Sie Ihr Oelfeld :",w 
ahl $ 

2280 PEN 2 

2290 IF wah1$="" THEN RETURN 

2300 fe1d$="":pr=0 

2310 anz =0 

2320 FOR x=l TO 10 

2330 IF LOWER$(wa h1 $) = LOWER$(ort$(x) ) THEN 
f e1d$ = o rt$ < x):pr = preis(x):anz=felder(x) 
2340 NEXT 

2350 IF an z > 9 THEN PEN 1 :LOCATE 1,19:PRINT 
wah 1 $ " ist bereits voll erschoepft.: FOR 
t=l TO 1000:NEXT:GOTO 2260 

2360 IF p r = 0 THEN LOCATE 1,19:PEN 1:PRINT" 
Zu "wähl $" ist der Zugang versagt !":FOR t 
=1 TO 1000:NEXT:PEN 2:GOTO 2260 
2370 IF kontol-pr<-100000 THEN LOCATE 1,19 
:PEN l:PRINT"Mehr Kredit gibt's nicht! 

":FOR t=l TO 1000:NEXT:PEN 3:GOTO 22 

60 

2380 kontol = kontOl-pr:LOCATE 1,2 1 :PRI NT"Ko 
ntostand :"kontol" 

2390 x=0 
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[4444] 

[361] 

[ 1646 ] 
[ 555 ] 
[117] 
[2324] 
[117] 
[2453] 
[ 5965 ] 


[ 555 ] 
[117] 

[3560] 

[117] 

[ 609 ] 
[2043] 
[2633] 

[ 1520 ] 
[ 2421 ] 
[716] 

[6497] 


[2567] 
[ 2648 ] 
[ 350] 

[ 709 ] 

[ 5 789 ] 


[1553] 
[ 1307 ] 
[ 350] 

[ 555 ] 
[117] 

[ 673 ] 
[117] 
[91] 

[ 3630 ] 

[1218 ] 
[ 743 ] 

[5089 ] 

[3620 ] 

[ 949 ] 

[1315 ] 
[2300 ] 

[ 1024 ] 
[ 548] 

[ 349 7 ] 

[ 547 ] 
[5156] 


[ 548 ] 
[1145] 
[ 9 70] 
[320] 
[803] 

[4852] 

[350] 

[7017] 


[6367] 


[7258] 


[4315] 
[ 351 ] 
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- 


Sie wurden 
:GOTO 1590 
"bort$(x)" 


2400 x=x+1:IF zeit(x)<=0 THEN zeit(x)=20:b 
ort$(x)=fe1d$:bpreis(x)=pr:GOTO 2420 
2410 IF x <19 THEN 2400 
2420 RETURN 
2430 ' 

2440 '<=== Bohrergebnis ===> 

2450 ' 

2460 CLS 

2470 PEN 1:PRI NT TAB(15)"Bohrergebnis" 

2480 MOVE 0,380:DRAW 640,380 
2490 PR I NT:PRINT 
2500 SOUND 1,50,100,15,1 
2510 PEN 2 

2520 IF RN D*10 > 6 THEN 2610 

2530 IF RN D*10 > 3 THEN PRINT" Sie wurden in 
”bort$(x)” nicht fuendig !" 

2540 PRINT " Die Bohrung in 
sste wegen" 

2550 PRINT 

2560 f$=fehl$(RND*7+l) 

2570 PEN 1:PRINT TAB<20-LEN<f$)/2)f$ 

2580 PEN 2:PRINT 

2590 PRINT TAB(11)"abgebrochen werden !" 
2600 GOTO 1590 

2610 PRINT TAB(8)"Herz1ichen Glueckwunsch 
! " 

2620 PRINT:PRINT TAB(5)"Soeben wird gemeld 
et,dass man in" 

2630 PEN 1:PRINT:PRINT TAB(18)bort$(x):PRI 
NT:PE N 2 

2640 PRINT TAB(10)"fuendig geworden ist !" 
2650 bort$=bort$(x) 

2660 FOR x=l TO 10 

2670 IF L0WER$(ort$(x)) = LOWER$(bort$ ) THEN 
felder(x)=felder(x)+l:fmenge(x)=fmenge(x) 
+ ROUNDC preis(x)/10 000) + ROUND(RND*4) :menge = 
fmenge(x) 

2680 NEXT 

2690 PRINT:PRINT:PRINT:PEN 3:PRINT TAB(9)" 
Ihre Quellen in "bort$:PRINT:PR I NT T AB(9 ) " 
foerdern"menge”t pro Sekunde." 

2700 GOTO 1590 
2710 1 

2720 '<=== Oelstand kontro11ieren ===> 

2730 * 

2740 CLS 

2750 PEN 1:PRINT TAB(12)"Oe 1stand kontroll 
ie ren " 

2760 MOVE 0,380:DRAW 640,380 
2770 PRINTrPRINT 

2780 PEN 2:PRINT"Gesamtue be r 5ic ht 
2790 PRINT 

2800 PEN 3:PRI NT TAB(4)"Ort"," Preis , 

"Besitz t/s" 

2810 PEN 1:PRINT STRING$(39PEN 2 
2820 FOR x=l TO 10:PRINT TAB(4)ort$(x ) , " 
"preis(x)," "; :PRI NT USING"B#"; fe1der ( x 

) ; :PR I NT" "; :PRINT USING"###";fmenge<x ) : 

NEXT 

2830 PEN 1:PRINT STRING$(39,"-"):PR I NT:PEN 
3 

2840 ges=0:foe=0:FOR x=l TO 10:ges=ges+fe1 
der(x):foe=foe +fmenge(x):NEXT 
2850 PRINT"Gesamtzahl der Quellen :"ges 
2860 PRINT 

2870 PRINT"Gesamtfoerderung :"foe 

2880 RETURN 
2890 ' 

2900 '<=== Vertragspartner ===> 

2910 ' 

2920 CLS 

2930 PEN 1:PRINT TAB(15)"Vertragspartner" 
2940 MOVE 0,380:DRAW 640,380 
2950 PRINT:PRI NT 

2960 IF sendflag=l THEN PEN 2:PRINT"0as Zi 
elland kann bis zur Landung nicht":PRINT : P 
RINT TAB(11)"gewechse1t werden RETURN 
29 70 PRINT"Land”,"Verk.Preis" , "Nr . " 

2980 PEN 3:PRINT STRING$(39," = " ) 

2990 PEN 2 

3000 FOR x«l TO 5:PRINT 1and$(x ) ,vpreis(x ) 

, x : NEXT 

3010 PEN 3:PRINT STRING$(39, " = " ) 


Listing Schwarzes Gold 


[3972] 

[1136] 
[ 555 ] 
[UV] 

[ 1267 ] 

[117] 

[91] 

[3270] 
[1218] 
[ 743 ] 
[1345] 
[ 546 ] 

[ 822 ] 

[ 5205 ] 


mu [4263] 


[ 361 ] 
[1195] 
[2004] 
[ 683 ] 

[2386] 

[317] 

[2702] 

[4040 ] 

[2477] 

[1814] 
[956 ] 

[ 803 ] 
[6989] 


[350] 

[8809] 


[317] 
[117] 
[2996 ] 
[117] 
[91 ] 
[3477] 

[ 1218] 
[ 743] 

[3388 ] 
[ 361 ] 
[2583] 

[ 1780] 
[3944] 


[2316] 

[4091] 

[3874] 
[ 361 ] 
[2188] 
[ 555 ] 
[117] 

[ 763 ] 
[117] 
[91 ] 

[3130] 
[1218] 
[ 743 ] 

[8125 ] 


[3198 ] 
[ 1256 ] 
[ 548 ] 

[4232 ] 

[ 1256 ] 
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für Sega 


IM MSI 


• Bio Challi-nne 
■ Shogtin 

• Voyagcr 

• Altnc Siili 688 

• Prophecy 


ZU GEWINNEN 

Ein Wochenende 
In Venedig 
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Nichts für Langeweiler 


Auf dem Computer 
eröffnet sich eine neue 
Dimension des Spielens. 

Begleiten Sie JOYSTICK 
in die abenteuerlichen 
und lustigen Welten des 
Computerspiels. 

Ob Sie nun Geister 
durch ein Labyrinth 
jagen oder lieber die 
Weiten des Weltraums 
unsicher machen... 

Ob Sie garstige Magier 
bekämpfen oder lieber 
einen Fußballverein 
managen.... 
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Reviews, Tips, Stories, 
Berichte und 
Lösungshilfen. 

Eben alles, was 
Computern Spaß macht! 
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3020 LOCATE 3,X3:INPUT"Waeh1en Sie die Num 

mer des Landes";nr 

3030 IF n r <1 OR nr>5 THEN 3020 

3040 FOR x=l TO S:IF x=nr THEN partner$=la 

nd$(x) 

3050 NEXT 

3060 PRINT:PEN 2 

3070 PRI NT"Ih r Vertragspartner ist also "p 
artner$ 

3080 RETURN 
3090 END 
3100 ' 

3110 ' <= = = Untermenue Schiffe = = => 

3120 ' 

3130 CLS 

3140 PEN 1:PRINT TAB(11)"Untermenue Schiff 
e" 

3150 MOVE 0,380:DRAW 640,380 
3160 PRINT:PRINT:PEN 2 

3170 PRINT"Schiffe kaufen. 

. < 0 > " 

3180 PRINT 

3190 PRINT"Schiffe verkaufen. 

. < 1 > " 

3200 PRINT 

3210 PRINT"Schif f e beladen. 

. < 2 > " 

3220 PRINT 

3230 PRINT"Schif f e senden. 

. <3>" 

3240 PRINT 

3250 PRINT"Hauptmenue. 

. < 4 > '* 

3260 wah1=0:PEN 3:LOCATE 1,25:PRI NT"Bi11e 
waehlen Sie 0-4 :"+CHR$(143) 

3270 a$=INKEY$ 

3280 IF a$="" THEN 3270 

3290 IF a$<"0" OR a$>"4" THEN 32 70 

3300 wähl=VAL(a$) 

3310 wähl=wahl+1 

3320 IF wah1 = 5 THEN LOCATE 1,25:PRINT STRI 
NG$(20,32):RETURN 

3330 ON wähl GOSUB 3390,3630,3810,4030 
3340 LOCATE 13,25:PEN 3:PR I NT"Taste drueck 
en ! " :CALL &BB06 
3350 GOTO 3120 
3360 ‘ 

3370 ’<=== Schiffe kaufen ===> 

3380 1 
3390 CLS 

3400 PEN 1:PR I NT TAB(14)"Schiffe kaufen" 
3410 MOVE 0,380:DRAW 640,380 
3420 PRINT:PRINT 

3430 PEN 2:PRINT"De r aktuelle Kaufpreis ei 
nes Schi ffes :" 

3440 PEN 1:PRINT:PRINT TAB(16)spreis 
3450 IF sanz+gebraucht=l THEN a$= Schiff 
ELSE a$="Schif fe " 

3460 PRINT:PEN 2:PRINT TAB(9)sanz+gebrauch 
t a$"besitzen Sie." 

3470 PRINT 

3480 PRINT TAB(6)"Ihr Kontostand betraegt" 

kontol 

3490 PEN 3 

3500 PRINT:PRINT TAB(7)"Wenn ein Schiff 99 
9 t fasst," 

3510 LOCATE 5,14:PR INT STRING$( 35,32) : LOCA 
TE 5 , 14:INPUT"wieviel Schiffe benoetigen S 
ie";anz 

3520 ko=Kontol-anz*sprei s 

3530 IF ko <-100000 THEN PEN 1:LOCATE 5,14: 
PRINT"Das uebersteigt Ihre Finanzen ! 

:FOR t=l TO 1000:NEXT:PEN 3:GOTO 3510 
3540 sanz=sanz+anz:kontol=ko 
3550 PEN 2 

3560 PRINT:PRINT:PRINT TAB(6)"Ihr Kontosta 
nd betraegt"kontol 

3570 IF sanz=l THEN a$=" leeres Schiff" EL 
SE a$=" leere Schiffe" 

3580 PRINT:PRINT TAB(4)"S1e besitzen nun"s 
anz a$ 

3590 RETURN 
3600 ' 

3610 '<=== Schiffe verkaufen ===> 


[ 5959 ] 

[ 1287 ] 

[ 3952 ] 

[ 350] 

[ 938] 

[ 4031 ] 

[ 555 ] 

[ 110 ] 

[117] 

[2308] 

[117] 

[91] 

[2514] 

[1218] 

[987] 

[ 2209 ] 

[361 ] 
[2493] 

[361] 
[2215 ] 

[361] 
[2952 ] 

[361] 
[2390] 

[4796] 

[ 2 78 ] 

[ 8 72 ] 

[ 584 ] 

[ 1192 ] 
[1008] 
[2236] 

[ 1082 ] 
[3492 3 

[ 45 7 ] 

[117] 

[2956] 

[117] 

[91] 

[ 2497 ] 
[ 1218 ] 
[ 743 ] 

[3847] 

[2175] 

[2591] 

[4538] 

[361] 
[2399] 

[ 547 ] 

[3194] 

[7793] 


[ 1505] 
[ 7050] 


[ 967 ] 

[ 548 ] 
[4817] 

[ 3563 ] 

[ 3244 ] 

[ 555 ] 
[117] 
[2362 ] 


3620 ' 

3630 CLS 

3640 PEN 1:PRINT TAB(13)"Schiffe verkaufen 
3650 MOVE 0,380:DRAW 640,380 

3660 PEN 2:PRINT:PRINT:PRINT TAB(4)"De r Ve 
rkaufspreis eines Schiffes : 

3670 PEN 1:PRINT:PRINT TAB(16)spreis 
3680 PEN 2:PRINT:PRINT TAB(3)"Ihre Anzahl 
der leeren Schiffe'sanz 

3690 PRINT:PRINT"Ihr momentaner Kontostand 
: " kontol 
3700 PEN 3 

3710 LOCATE 5,11:PRINT STRINGS(40,32):LOCA 
TE 5.12:INPUT"Wievie1 Schiffe verkaufen Si 
e " ianz 

3720 IF anz > sanz THEN PEN 1:LOCATE 5,12:PR 
INT"Sov1el Schiffe besitzen Sie nicht!":FO 
R g= 1 TO 1000:NEXT:GOTO 3700 
3730 sanz=sanz-anz 
3740 kontol=kontol+anz*spreis 
3750 PEN 2:PRINT:PRINT TAB(8)"Ihre Anzahl 
der Schiffe"sanz+gebraucht 
3760 PRINT:PRINT TAB(10)"Ihr Kontostand 
, konto 1 
3770 RETURN 
3780 ‘ 

3790 1 <=== Schiffe beladen ===> 

3800 ' 

3810 CLS 

3820 PEN 1 :PRINT TAB(13)"Schiffe beladen" 
3830 MOVE 0,380:DRAW 640,380 
3840 PRI NT:PRI NT 

3850 IF sendf1ag=1 THEN PEN 2:LOCATE 4,10: 
PRINT"Es sind bereits Schiffe auf See.":RE 
TURN 

3860 PEN 2:PRINT TAB(6)"Sie besitzen jetzt 
"ton"t Oe 1 ." 

3870 PRI NT:PRINT TAB(5)"Die Anzahl der lee 
ren Schiffe"sanz 

3880 PRINT:PRINT TAB(9)"Ein Schiff fasst 9 
9 9 t . " 

3890 PEN 3 

3900 LOCATE 1,11:PRINT STRING$(39,32):LOCA 
TE 6 , 11:INPUT"W1eviel Tonnen verladen Sie" 

; tanz 

3910 IF tanz=0 THEN RETURN 

3920 IF tanz > ton THEN PEN 1:LOCATE 4,11:PR 
INT"Ihr Gesamtvorrat reicht nicht aus ! 

:FOR g=1 TO 1000:NEXT:GOTO 3890 
3930 IF sanz<INT(tanz/1000)+l THEN PEN 1:L 
OCATE 5,11:PRINT"Ihre Schiffe reichen nich 
t aus ! ":FOR g=l TO 1000:NEXT:GOTO 389 

0 

3940 ton=ton-tanz 

3950 sanz=sanz-(INT(tanz/1000)+l) 

3960 PRINT:PRINT TAB(7)"Damit bleiben"ton" 
t im Lager," 

3970 PRINT:PRINT"und Ihre leere Schiffszah 
1 betraegt:"sanz 

3980 geladen=geladen+tanz:gebraucht=gebrau 

cht+INT(tanz/1000)+l 

3990 RETURN 

4000 ’ 

4010 ’<=== Schiffe senden ===> 

4020 * 

4030 CLS 

4040 PEN 1:PRINT TAB(15)"Schiffe senden" 
4050 MOVE 0,380:DRAW 640,380 
4060 PRINT:PRINT 

4070 PEN 2:IF sendflag=l THEN LOCATE 5,5:P 
RINT"Es sind bereits Schiffe auf See.":RET 
URN 

4080 IF partner$="niemand" THEN LOCATE 4,5 
:PRINT"Sie haben gar keinen Liefervertrag 
!":RETURN 

4090 IF gebrauchte THEN LOCATE 1,S:PRINT" 
Sie besitzen gar keine vollen Schiffe !“:R 
ETURN 

4100 sendflag=l 
4110 PRINT:PRINT 

4120 IF gebrauchte THEN a$="Schiff" ELSE 
a$="Schiffe" 
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[117] 
[91 ] 

[ 4626] 

[1218] 
[ 4921 ] 

[2175] 
[ 4601 ] 

[4672] 

[ 547 ] 

[ 4801 ] 


[ 8335 ] 


[ 661 ] 

[ 1832 ] 
[4195] 

[ 2995 ] 

[ 555 ] 
[117] 
[2367] 
[117] 
[91 ] 

[3283] 
[1218 ] 
[ 743 ] 

[7698] 


[ 5220 ] 


[ 3429 ] 

[ 2893 ] 

[ 547 ] 

[7265] 


[1526] 

[6677] 


[7623] 


[ 642 ] 

[ 892 ] 
[3343] 

[ 3585 ] 

[3268] 

[555 ] 
[117] 

[2098] 

[117] 

[91] 

[3245] 

[1218 ] 

[ 743] 

[4940] 


[ 5225 ] 


[5268 ] 


[1146] 
[ 743] 
[2208] 
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4130 PRINT T AB( 2 ) " S i e sandten ' gebraucht a$ [ 3427 ] 
" nach "partner$"" 

4140 PRINT:PRINT TAB(8)"aus, beladen mit"g [3714] 
eladen"t Oe 1 ." 

4150 RETURN [555] 

4160 ' [117] 

4170 '<=== Schiffe angekommen ===> [2614] 

4180 ' [117] 

4190 CLS [91] 

4200 PEN 1:PRINT TAB(10)"Schiffe sind ange [4505] 
kommen" 

4210 MOVE 0,380:DRAW 640,380 [1218] 

4220 SOUND 1,20,100,15,1 [1372] 

4230 PRINT:PRINT [743] 

4240 sendflag=0 [1147] 

4250 PEN 2:PRINT"Weggeschickte Schiffe :"g [3661] 
ebraucht 

4260 PRINT:PRINT"Verlademenge :"g [3622] 

eladen 

4270 kaputt=R0UND(RND*5) [1345] 

4280 IF kaputt>=gebraucht THEN 4270 [712] 

4290 minus = INT(ge 1aden/gebraucht) [3534] 

4300 FOR x=l TO 5:IF 1and$(x)=partner$ THE [3221] 
N x2 = x 

4310 NEXT [350] 

4320 PRINT:PRINT"Der Verkaufspreis in par [4745] 
tner$" :"vpreis(x2) 

4330 IF RND*10>4 AND kaputt>0 THEN 4440 [2120] 


4340 PRINT:PRINT"Al 1e Ihre Schiffe haben d [ 4732 ] 
as Ziel wohlbe-" 

4350 PRINT:PRINT"halten erreicht. Sie erbr [3116] 


achten insges." 

4360 ko=geladen*vpreis(x2) [618] 

4370 PEN 1:PRINT:PRINT TAB(17)kO [1103] 

4380 PEN 2:PRINT:PRINT"Insgesamt belaeuft [5531] 
sich Ihr Konto auf" 

4390 kontOl=kontol+kO [1265] 

4400 PEN 1:PRINT:PRINT TAB(17)konto1 [1209] 

4410 sanz=gebraucht+sanz [1224] 

4420 geladen=0:gebraucht=0 [1263] 

4430 GOTO 1590 [317] 


4440 IF kaputt=1 THEN a$="Schiff erreichte [4220] 
" ELSE a$="Schiffe erreichten" 

4450 PRINT:PRINT kaputt a$" den Hafen nich [3799] 
t. ” 

4460 PRINT:PRINT"Damit gehen"minus*kapu11" [ 4263 ] 

t Rohoel verloren." 

4470 geladen=geladen-minus*kaputt:gebrauch [4033] 


t=gebraucht-kaputt 

4480 ko=geladen*vpreis(x2) [618] 

4490 PRI NT:PRINT TAB(7)"Die Sendung bracht [ 29 79 ] 
e immerhin" 

4500 PEN 1:PRINT:PRINT TAB(17)ko:PEN 2 [2102] 

4510 PRINT:PRINT"Insgesamt belaeuft sich I [5060] 
hr Konto auf" 

4520 kontOl=kontol+ko [1265] 

4530 PEN 1:PRINT:PRINT TAB(15)konto 1 [ 1462 ] 

4540 sanz=gebraucht+sanz [1224] 

4550 ge 1aden = 0:gebraucht = 0 [ 1263 ] 

4560 GOTO 1590 [317] 

4570 ' [117] 

4580 '<=== Marktpreise sehen ===> [2263] 

4590 * [117] 

4600 CLS [91] 

4610 PEN 1:PRINT TAB(10)"Marktpreise sehen [2932] 

4620 MOVE 0,380:DRAW 640,380 [1218] 

4630 PRINT:PRINT [743] 

4640 WINDOW 10,40,4,25 [1403] 

4650 PEN 1:PRINT"Land","Verk.Preis" [1861] 

4660 PRINT STRING$(23,"=") [1406] 

4670 PEN 2 [548] 

4680 FOR x=l TO 5:PRINT land$(x)," "vpr [3753] 
eis(x):NEXT 

4690 WINDOW 1,40,1,25 [1024] 

4700 RETURN [555] 

4710 ' [117] 

4720 '<=== Konkurrenz sabotieren ===> [3039] 

4730 * [117] 

4740 CLS [91] 

4750 PEN 1:PRINT TAB(10)"Konkurrenz saboti [4024] 
e ren “ 

4760 MOVE 0,380:ORAW 640,380 [1218] 


4770 PRINT:PRINT 

4780 PEN 2:PRINT" Wollen Sie wirklich sabo 
tieren (j/n) ?" 

4790 a$=INKEY$:IF a$= M " THEN 4790 
4800 IF LOWERS(a$ ) = "n" THEN RETURN 
4810 IF LOWER$(a$)="j" THEN 4830 
4820 GOTO 4790 

4830 PRINT:PRINT TAB(8)"Sabotage ist im Ga 
nge . . . " 

4840 FOR g=1 TO 80:SOUND 1,0,2,10,0,0,RND* 
30+1:FOR t=l TO 20:NEXT t,g 
4850 minu=ROUND(RND*10+l)*50000 
4860 IF RND*10>5 THEN 4900 

4870 PRINT:PRINT:PRINT TAB(12)"Sabotage ge 
1ungen !" 

4880 PRINT:PRINT TAB(5)"Das kostete die Ko 
nkurrenz"minu:kon to2 = kon to2-minu 
4890 RETURN 

4900 PRINT:PRINT:PRINT TAB(12)"Sabotage en 
tdeckt l" 

4910 PRINT:PRINT TAB(10)"0ie Konkurrenz fo 
rdert":PRINT:PRINT TAB(IO) minu"Schadenser 
satz!":kontOl=kontol-minu 
4920 RETURN 
4930 ' 

4940 '<=== Boerse ===> 

4950 * 

4960 CLS 

4970 PEN 1:PRINT TAB(18)"Boerse" 

4980 MOVE 0,380:DRAW 640,380 
4990 PEN 2 

5000 LOCATE 1,25:PRINT"Konto :";kontol 
5010 WINDOW 1,40,20,24:CLS:WINDOW 1,40,1,2 
5 

5020 LOCATE 1,9 

5030 FOR x=l TO 3:PRINT aktie$(x),:NEXT 

5040 LOCATE 1,17:FOR x=4 TO 6:PRINT aktie$ 

(x),:NEXT 

5050 PEN 3 

5060 FOR x —1 TO 3 

5070 LOCATE x* 14-12,8:PEN 1:PRINT stand(x) 
5080 LOCATE x*14-12,10:PR I NT gekauft(x)" 


[ 743] 

[ 3391 ] 

[1538] 
[1724] 
[1079] 
[331] 
[2503] 

[ 4598] 

[1907] 
[ 1628 ] 
[ 4094 ] 

[ 7207 ] 

[ 555] 

[4043] 

[ 7846 ] 


[ 555 ] 
[117] 

[ 1252 ] 

[117] 

[91] 

[ 2141 ] 
[1218] 
[ 548] 

[1888] 
[ 2549 ] 

[603] 
[3010] 
[2191 ] 

[ 547 ] 
[719] 
[1778] 
[1360] 


5090 PEN 3 [547] 

5100 FOR y= 7 TO 7-stand(x)/1000 STEP-1 [2484] 

5110 LOCATE x*14-10,y:PRINT CHR$(255)+CHR$ [2356] 
( 255 ) 

5120 NEXT [350] 

5130 NEXT [350] 

5140 FOR x=4 TO 6 [750] 

5150 LOCATE (x-3)* 14-12 , 16:PEN 1:PRINT sta [ 2955 ] 
nd ( x ) 

5160 LOCATE (x-3)* 14-12, 18:PRI NT gekauft(x [ 2750] 
)" 

5170 PEN 3 [547] 

5180 FOR y= 7 TO 7-stand(x)/1000 STEP-1 [2484] 

5190 LOCATE (x-3)* 14-10,y + 8:PRINT CHR$(255 [2260] 
)+CHR$(255) 

5200 NEXT [350] 

5210 NEXT [350] 


5220 LOCATE 1,20:INPUT"We1che Gesellschaft [3173] 
";wähl $ 

5230 IF wähl$=“" THEN LOCATE 1,25:PRINT ST [4935] 
RING$(38,32 ) :RETURN 

5240 x2=0:FOR x=l TO 6:IF LOWERS(aktie$(x) [5568] 
) = LOWER$(wähl$) THEN x2 = x 


5250 NEXT [350] 

5260 IF x2=0 THEN 5220 [1436] 

5270 LOCATE 1,22 [730] 

5280 INPUT">K<aufen oder >V<erkaufen";wah1 [2457] 

$ 

5290 IF LOWERS(wahl$)="v" THEN 5390 [1690] 

5300 IF LOWERS(wahl$)="k" THEN 5320 [1657] 

5310 GOTO 5270 [389] 

5320 LOCATE 1,24 [728] 

5330 INPUT"Wieviel wollen Sie kaufen";anz [2896] 

5340 ko=anz*stand(x2) [662] 

5350 IF kontOl-ko<—100000 THEN PEN 1:LOCAT [4775] 

E 1,24:PRINT"Ihr Geld reicht nicht! 


":FOR t=l TO 1000:NEXT:PEN 3:GOTO 532 

0 

5360 kontOl=kontOl-ko [1289] 

5370 gekauft(x2)=gekauft(x2)+anz [2390] 
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5380 GOTO 4990 [421] 

5390 LOCATE 1,24 [728] 

5400 INPUT"Wievie1 wollen Sie verkaufen";a [2559] 
nz 

5410 IF anz>gekauft(x2) THEN PEN 1:LOCATE [6693] 
1,24:PRINT"Soviel Aktien haben Sie nicht! 

" : FOR t=l TO 1000:NEXT :PEN 3:GOTO 5390 


5420 kontol=kontol+anz*stand(x2) [2063] 

5430 gekauft(x2)=gekauft(x2)-anz [2374] 

5440 GOTO 4990 [421] 

5450 ' [117] 

5460 '<=== Oelfelder verkaufen ===> [1937] 

5470 ' [117] 

5480 CLS [91] 

5490 PEN 1:PRINT TAB(10)"Oe 1fe 1 der verkauf [2653] 
en" 

5500 MOVE 0,380:DRAW 640,380 [1218] 

5510 WINDOW 1,40,20,25:CLS:WINDOW 1,40,1,2 [1521] 
5 

5520 LOCATE 1,4 [620] 

5530 PEN 3:PRINT"Kontostand :";konto1:PEN [3991] 
1 

5540 PRINT [361] 

5550 PRINT"Bezirk", Preis","Besitz" [2933] 

5560 PRINT STRING$(39,"=") [1538] 

5570 PEN 2 [548] 

5580 FOR x=l TO 10:PRINT ort$(x),preis(x), [3050] 

fei der(x):NEXT 

5590 PEN 1:PRI NT STRING$(39, " = ") [ 1 7 78 ] 

5600 PRINT:PEN 3 [941] 

5610 LOCATE 1,20:INPUT"We1cher Bezirk";wah [3114] 
1$ 

5620 IF wah1$ = " " THEN RETURN [1145] 

5630 x2=0:FOR x=l TO 10:IF LOWER$(Ort$(x)) [3234] 
= LOWERS(wah1 $) THEN x2 = x 

5640 NEXT [350] 

5650 IF x2=0 THEN 5610 [1287] 


5660 LOCATE 1,22:INPUT"Wievie1 Quellen ver [4261] 
kaufen";anz 

5670 IF anz>felder(x2) THEN PEN 1:LOCATE 1 [7393] 
,22:PRINT"Soviel haben Sie nicht ! ": 

FOR t=l TO 1000:NEXT:PEN 3:GOTO 5660 


5680 kontol = kontol + anz*preis(x2 ) [1965] 

5690 fm=INT(fmenge(x2)/fe1 der(x2)) + 1 [ 1762 ] 

5700 fmenge(x2)=fmenge(x2)-fm*anz:IF fmeng [2657] 
e(x2)<0 THEN fmenge(x2 ) = 0 

5710 felder(x2) = fe1 der(x2)-anz [ 1603] 

5720 GOTO 5510 [365] 

5730 * [117] 

5740 '<=== Infos ===> [929] 

5750 ' [117] 

5760 MODE 2:lNK 0,0:INK 1,26 [2703] 

5770 PEN 1,0 [588] 

5780 PRINT"INFORMATIONEN ZUM SPIEL :" [1550] 


5790 PRINT:PRINT"Sie haben das grosse Glue [6474] 
ck, sich als Oelprinz zu versuchen." 

5800 PRINT"Sie sind der Boss eines Oelunte [6795] 
rnehmen, am Anfang Ihrer Karriere." 

5810 PRINT"Sie haben ein bestimmtes Grundk [6645] 
apital und alle Faeden in der Hand." 

5820 PRINT"Allein von Ihnen haengt es ab, [7227] 
ob Sie erfolgreich sind oder nicht." 

5830 PRINT"Oberstes Ziel sollte sein, die [4342] 
Konkurrenz nach Ablauf der Spiel-" 

5840 PRINT"zeit hinweggeblasen zu haben (m [4053] 
in.45 minuten Spielzeit noetig! )" 

5850 PRINT"Waren Sie erfolgreich genug, ko [7034] 
ennen Sie sich in das goldene" 

5860 PRINT"Buch der besten Manager eintrag [6089] 
en. Ich wuensche Ihnen viel GLUECK ! ! !" 

5870 LOCATE 1,25:PRINT"Taste druecken. . [2306] 

CALL &BB06:CLS 

5880 PRINT"INFORMAT IONEN ZU DEN MENUEPUNKT [ 29 77 ] 
EN : " 

5890 PRINT:PRINT"0.Situationsbericht" [3270] 

5900 PRI NT"Hier wird Ihr Kontostand, Ihr 0 [8548] 

elvorrat, Ihre Schiffe und Ihr Zielhafen g 
ezeig t." 

5910 PRINT:PRINT"1.Konkurrenz" [1982] 

5920 PRINT"Sie sehen den Kontostand der Ko [6928] 

nkurrenz und deren finanzielle Situation." 

5930 PRINT:PRINT"2.Bohren" [973] 
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5940 PRINT"Geben Sie hier den gewuenschten [11722] 
Bohrort an. Je teurer Sie kaufen, desto b 
esser die Foerderung. Bsp.:Alaska foerder 
t mehr als Jordanien." 

5950 PRINT"Warten Sie nun den Verlauf der [9957] 
Bohrung ab. Ihr Mitarbeiter wird Sie ueber 
den Ausgang der Bohrung informieren, 11 
5960 PRINT:PRINT"3.Oelkontrol1e" [1235] 

5970 PRINT"Ihre gesamten Oelquellen werden [5718] 
uebersichtlich in einer Tabelle dargestel 
lt. " 

5980. PRI NT : PR I NT " 4 . Ve r t r agspa r t ne r " [ 1926 ] 

5990 PRI NT"Waeh1en Sie hier den Zielhafen [ 6366] 
fuer Ihre Schiffe durch Eingabe der Kennza 
hl . " 

6000 LOCATE 1,25:PRI NT"Taste druecken...": [2306] 
CALL &BB06:CLS 

6010 PRINT:PRINT"5.Schiffe" [1075] 

6020 PRINT"Hier gelangen Sie in ein Unterm [3887] 
enue mit folgenden Funktionen :" 

6030 PRINT" 0.Schiffe kaufen : Kaufen [ 5.749 ] 
Sie sich Schiffe, um Oel zu verladen." 

6040 PRINT" 1.Schiffe verkaufen : Verkau [5678] 
fen Sie ueberzaehlige Schiffe wieder." 

6050 PRINT" 2.Schiffe beladen : Verlad [6346] 
en Sie das Rohoel auf die Schiffe." 

6060 PRINT" 3.Schiffe senden : Schick [8101] 
en Sie Ihre Flotte zu Ihrem Zielhafen." 

6070 PRINT TAB(26)"Ueber deren Eintreffen [4900] 
wird Sie das" 

6080 PRINT TAB(26)"Zie11 and unterrichten." [3635 ] 
6090 PRINT:PRINT"6.Marktpreise" [1837] 

6100 PRINT"Es wird eine Tabelle aller Ziel [8017] 
laender ( Zielhaefen!) mit dem Kaufpreis p 
ro Tonne Rohoel ausgedruckt." 

6110 PRINT:PRINT"7.Konkurrenz sabotieren" [3076] 
6120 PRINT"Ist die Sabotage gelungen, verl [ 12027] 
iert die Konkurrenz den ausgedruckten Betr 
ag, wird es entdeckt, zahlen Sie diesen 
Betrag." 

6130 LOCATE 1,25:PRINT"Taste druecken...": [2306] 
CALL &BB06:CLS 

6140 PRINT"8.Boerse" [703] 

6150 PRINT"Der Kurs der Aktie wird angezei [9910] 
gt, dann der Name und schliesslich Ihr Akt 
ienan- teil an der jeweiligen Aktie." 

6160 PRINT"Wahlen Sie nun die Aktie, dann [7579] 
ob verkaufen oder kaufen und dann die Anza 
hl . " 

6170 PRINT:PRINT"9.Oelfelder verkaufen" [2398] 
6180 PRINT"Hier koennen Sie nach gelungene [13099] 
n Management Ihre Quellen fuer den Kaufpre 
1s wieder abstossen. Sollte man kurz v 

or Zeitschluss machen." 

6190 PRINT:PRINT:PRINT [1082] 

6200 PRINT"Um einen Menuepunkt zu verlasse [5530] 
n, nur > ENTER< druecken." 

6210 PRINT:PRINT"Um das Spiel zu beenden, [4188] 
>Q< druecken." 

6220 LOCATE 1,25:PRINT"Das wars, Taste dru [2249] 
ecken ! " :CALL &BB06 


6230 GOTO 370 [466] 

6240 ' [117] 

6250 '<=== Zeit zu Ende ===> [956] 

6260 1 [117] 

6270 SOUND 1,20,100,15,1 [1372] 

6280 CLS [91] 

6290 PEN 1:PRINT TAB(13)"Spi e 1 ze i t zu ende [4327 ] 

6300 MOVE 0,380:DRAW 640,380 [1218] 

6310 PRINT:PRINT [743] 


6320 PEN 2:PRINT" Z1ehen wir nun mal Bilanz [5513] 
:":FOR t=l TO 1000:NEXT 

6330 PRINT:PRINT"Sie hatten "std2"std. und [6939] 
"minut2"min. Zeit":F0R t=l TO 500:NEXT 
6340 PRINT:PRINT"und haben ein Guthaben vo [3830] 
n"konto1:FOR t=l TO 2000:NEXT 

6350 PRINT:PRINT"Die Konkurrenz hat"konto2 [3176] 
:FOR t=l TO 1000:NEXT 

6360 PRINT:PRINT:PEN 3:PRINT"Das ergibt fo [2987] 
1gendes :" 

6370 IF kontol<200000 THEN aus=l [1790] 
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6380 IF kontol>=konto2 THEN aus = 2 [1833] 

6390 IF kontol<konto2 AND konto1>200000 TH [3451] 
EN aus=3 

6400 ON aus GOSUB 6670,6730,6830 [1602] 

6410 CALL &BB06 [393] 

6420 WINDOW 1,40,13,25:CLS:WINDOW 1,40,1,2 [1973] 
5:LOCAT E 1,13 

6430 x2 = 0 :FOR x=15 TO 1 STEP-1 [1816] 

6440 IF konto1>=ge1d(x) THEN ge 1d(x+1) = ge1 [ 5860] 
d(x):name$(x+l)=name$(x):konk(x+l)=konk(x) 
:dauer$(x+l)=dauer$(x):x2=x 

6450 NEXT [350] 

6460 IF x 2 = 0 THEN 6620 [ 1269] 

6470 PRINT:PEN 3 [941] 

6480 PRINT"Sie haben sich einen Platz" [1496] 

6490 PRINT"in dem goldenen Buch der" [2714] 

6500 PRINT"erfolgreichsten Manager" [2979] 

6510 PRINT"erarbeitet." [1806] 

6520 PRINT [361] 

6530 PEN 1 :PRINT“Herzlichen Glueckwunsch ! [4120] 
":PEN 3 

6540 LOCATE i,21:INPUT"Ihren stolzen Namen [3986] 
bl tte";nam$ 

6550 IF LEN(nam$)>12 THEN PEN 1:LOCATE 1,2 [7944] 


1:PRINT"Nu r 12 Buchstaben !" + SPACE$(40):PE 
N 3:FOR t=l TO 2000:NEXT:GOTO 6540 

6560 name$(x2)=nam$:dauer$(x2) = z$:ge 1d(x2) [2883] 
=kontOl:konk(x2)=konto2 

6570 GOSUB 7150' Das goldene Buch [2775] 

6580 IF x2 < > 0 THEN GOSUB 7050 Highscores [2444] 
spei chern 

6590 CALL &BB06 [393] 

6600 CLS:INK 1,23:PEN 1:PRINT"Wo 11en Sie n [ 3741 ] 
och ein Spiel ?" 

6610 IF INKEY(45)< >-l THEN PRI NT"Ok. ":RUN [ 9946] 
ELSE IF I N K E Y ( 4 6 )< >-l THEN CLS:LOCATE 5,10 
:PRINT"Ich hoffe, wir sehen uns bald wiede 
r . . . " :FOR g = l TO 2000:NEXT:CALL 0 ELSE 661 
0 


6620 PRINT:PRINT:PEN 2 [987] 

6630 PRINT"Ihre Leistung reicht nicht fuer [2691] 

6640 PRINT"einen Platz im goldenen Buch." [3043] 
6650 CALL &BB06 [393] 

6660 GOTO 6570 [409] 

6670 PRINT"Sie waren schon sehr miess." [3639] 
6680 PRINT"Nicht nur, dass die Konkurrenz" [4063] 
6690 PRINT”besser dasteht als Sie, Sie" [2362] 
6700 PRINT"haben noch dazu Verluste ge-" [3572] 
6710 PRINT"macht. (Sehr bedenklich!)" [3032] 

6720 RETURN [555] 

6730 PRINT"Sie haben Ihre Sache" [1799] 

6740 PRINT"grossartig gemacht ! ! !" [1583] 

6750 PRINT"Nicht nur,dass Sie keine Verlus [4112] 
te " 

6760 PRINT”gemacht haben, nein Sie ha-" [2278] 
6770 PRINT"ben sogar die Konkurrenz ueber- [4090] 


6780 PRINT"troffen. Goennen Sie sich einen [3383] 


6790 PRINT"Augenblick, um sich selbst auf“ [3511] 

6800 PRINT"d1e Schulter zu klopfen, Sie" [2464] 

6810 PRINT”haben es sich ehrlich verdient. [4336] 

6820 RETURN [555] 

6830 PRI NT 11 Das lief ja schon ganz" [2910] 

6840 PRINT"ordentlich. Die Konkur-" [2457] 

6850 PRINT"renz lief Ihnen zwar da-" [2489] 

6860 PRINT"von, doch haben Sie ein" [2514] 

6870 PRINT"huebsches Suemmchen ver-" [2530] 

6880 PRINT"dient. [937] 

6890 PRINT"Vi eil ei ch-t sollten Sie sich" [4110] 

6900 PRINT"mehr Zeit zum Spiel nehmen, [3406] 

6910 PRINT"dann schaffen Sie es." [2254] 

6920 RETURN [555] 

6930 ' [117] 

6940 ‘<=== Highscores laden ===> [321] 

6950 ‘ [117] 

6960 OPENIN"oeltable.dat" [2028] 

6970 FOR x =1 TO 15 [814] 

6980 INPUT#9,name$(x),dauer$(x),geld(x),ko [3312] 

nk (x ) 
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6990 

NEXT 

[ 350 ] 

7000 

CLOSEIN 

[ 752 ] 

7010 

RETURN 

[ 555 ] 

7020 


[117] 

7030 

•<=== Highscores speichern ===> 

[ 589 ] 

7040 


[117] 

7050 

!ERA,"oeltable.dat" 

[2862 ] 

7060 

OPENOUT" oeltable.dat" 

[ 1928 ] 

7070 

FOR x=1 TO 15 

[814] 

7080 

WRITE#9,name$(x),dauer$(x),geld(x),ko 

[ 2527 ] 

nk (x) 


7090 

NEXT 

[350] 

7100 

CLOSEOUT 

[902] 

7110 

RETURN 

[ 555 ] 

7120 

* 

[117] 

7130 

'<=== Das goldene Buch ===> 

[ 1078 ] 

7140 


[117] 

7150 

MODE 1 

[ 506] 

7160 

INK 1,15,24:SPEED INK 2,2:PEN 1:PRINT 

[ 6305 ] 

"Moment, muss schnell das Buch holen..." 


7170 

FOR t=l TO 2000:NEXT:MODE 1 

[1977] 

7180 

INK 1,0:INK 2,0:INK 3,0 

[ 672 ] 

7190 

p=4 

[ 269 ] 

7200 

FOR y= 52 TO 70 STEP 2 

[ 1373] 

7210 

MOVE 40,y,p:DRAW 610,y 

[ 1418] 

7220 

p=p+l:IF p > 3 THEN p= 2 

[ 663] 

7230 

NEXT 

[ 350] 

7240 

DEG 

[133] 

7250 

FOR x=0 TO 180 

[ 8 70 ] 

7260 

a=x*2+COS(x):b=50 + 20*SIN( x) 

[ 1221 ] 

7270 

MOVE a,b:DRAWR 0,280,1:DRAWR 0,1,2 

[2266] 

7280 

PLOT a.b-2,2 

[ 7 79 ] 

7290 

MOVE a+290,b:DRAWR 0,280,1:DRAWR 0.1, 

[2566] 

7300 

PLOT a+290,b-2,2 

[ 772 ] 

7310 

NEXT 

[350] 

7320 

FOR x = 320 TO 328 STEP 2 

[ 1081] 

7330 

MOVE x,50,2:DRAW x,336 

[ 592 ] 

7340 

NEXT 

[ 350 ] 

7350 

FOR x =1 TO 130:PLOT RND*640,RND*290 + 5 

[2283] 

5,3: 

NEXT 


7360 

PEN 3 , 1 

[ 807 ] 

7370 

LOCATE 4,5:PRI NT"Name: 

[ 1562 ] 

7380 

LOCATE 15,5:PRINT"Dauer: 

[ 1069 ] 

7390 

LOCATE 24,5:PRINT"Konto: 

[ 1941 ] 

7400 

LOCATE 33,5:PRINT"Konkurr: 

[2003] 

7410 

FOR x =1 TO 15 

[814] 

7420 

IF x = x2 THEN PEN 2 , 1 

[ 1050] 

7430 

LOCATE 2,5 + x:PRINT name$(x):PEN 3,1 

[ 1 705 ] 

7440 

LOCATE 15,5+x:PRINT dauer$(x) 

[ 1786] 

7450 

LOCATE 22,5+x:PRINT USING"#########"; 

[2638] 

ge 1d(x) 


7460 

LOCATE 32,5+x:PRINT USING ###*#####"; 

[3927] 

konk(x) 


7470 

NEXT 

[ 350] 

7480 

INK 1,24:INK 2 , 15:INK 3,6 

[ 1490] 

7490 

RETURN 

[ 555 ] 

10 1 

HighscoretaUelle 

[ 1485] 

20 1 

fuer 

[ 364] 

30 ' 

Oe 1 manage r 

[ 25 7 ] 

40 1 

initialisieren 

[1217] 

50 1 


[117] 

60 ' 

Listing 2 

[1019] 

70 DIM name$(16),dauer$(16),geld(16),konk( 

[2334] 

16) 



80 FOR x=l TO 15 

[814] 

90 name$(x) = "De r Oelprinz" 

[ 1654 ] 

100 

dauer$(x)="00:30" 

[ 988 ] 

110 

geld(x)={16-x)*10000 

[921] 

120 

konk(x)=(16-x)*10000 

[ 5 74 ] 

130 

NEXT 

[ 350 ] 

140 

OPENOUT"oeltable.dat" 

[ 1928] 

150 

FOR x =1 TO 15 

[814] 

160 

WRITE49,name$(x) ,dauer$(x) ,geld(x) , kon 

[2527] 

k (x ) 



170 

NEXT 

[ 350] 

180 

CLOSEOUT 

[ 902 ] 
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mm 

Mi 


um 

m 


Efill tich 

CP i 
SEI hz 

ssi m 

m adr 

m 


Hf ?s 

23 

M 253 

®Ü7 ■ r ■ 

27 



atSIARI 

CALL Mm 

m 

29 



- 30 

P?JSH de 

§33 ifi 


LS a.(de) 

mjm 

32 / 


giS41---A 

33 1 



;1 Parket ?f 
/BASIC-Rcfi 


;CK B64 : Sc4d3 

as break m 


!Leerstriisg ? daroi uetersj 



Die Assemblerecke 


Fleißkomma berechnungen 

Ein peinlicher Druckfehler gleich in der Überschrift? Nein, lieber Leser, 
weit gefehlt: Kaum etwas erfordert vom Z80-Prozessor so viel Fleiß wie das 
Rechnen mit Fließkommazahlen, so daß das obige Wortspiel durchaus seine 
Berechtigung hat. Einfache Ganzzahl-Operationen erledigt das CPC-Zen- 
tralgehirn in wenigen Mikrosekunden; für Fließkommaberechnungen muß 
es sich dagegen durch langatmige Routinen mit Hunderten von Einzelbefeh¬ 
len hindurchkämpfen, und das kostet Rechenzeit... 


Aus diesem Grund treffen in der PC In- 
ternational-Redaktion immer wieder 
Leser-Anfragen zum Thema 'Fließ¬ 
komma-Operationen in Assembler’ 
ein, getragen von der Hoffnung, mit 
dem Wundermittel Maschinensprache 
ließe sich im Vergleich zu BASIC auch 
hierbei ein dramatischer Geschwindig¬ 
keitsgewinn erzielen. Leider ist diese 
Annahme zu optimistisch, wofür 
hauptsächlich zwei Tatsachen verant¬ 
wortlich sind: 

- Die Programmierung eigener Fließ¬ 
komma-Routinen erfordert viel Zeit 
und mathematisches Wissen. Auch mit 
allen Wassern gewaschene Program¬ 
mierer benutzen deshalb lieber die im 
CPC-ROM vorhandenen Unterpro¬ 
gramme; und die sind ohnehin so gut, 
daß sie sich kaum noch verbessern las¬ 


sen. Der BASIC-Interpreter greift na¬ 
türlich auf die gleichen Routinen zu¬ 
rück und ist hier kein Stück langsamer. 
— Ein Maschinenprogramm erspart 
die Dekodierung und Interpretation ei¬ 
nes Rechenausdrucks durch das CPC- 
BASIC. Die dadurch gewonnene Zeit 
fällt gegenüber den langen Ausfüh¬ 
rungszeiten der Fließkomma-Routinen 
jedoch kaum ins Gewicht; der Ge¬ 
schwindigkeitsvorteil beträgt deshalb 
meist nur wenige Prozent. 

Zahlen mit Format 

Trotzdem läßt sich in einigen Fällen 
noch etwas herausholen, wenn man mit 
dem Aufbau der Fließkomma- bzw. 
REAL-Zahlen auf Maschinenebene gut 
vertraut ist. Für die interne Darstellung 


wird ein binäres Exponentialformat be¬ 
nutzt, das man nicht unbedingt als 
leicht durchschau bar bezeichnen kann. 
Um der Angelegenheit näherzukom¬ 
men, ist es ratsam, sich zunächst in 
vertrauten dezimalen Regionen mit 
dem Exponentialformat zu beschäfti¬ 
gen. Es entsteht, wenn man eine Zahl 
in zwei Faktoren zerlegt, die folgenden 
Gesetzen gehorchen: 

— Der erste Faktor (die Mantisse) be¬ 
sitzt genau eine von Null verschiedene 
Vorkommastelle. 

— Der zweite Faktor ist eine reine Zeh¬ 
nerpotenz. 

Hier ein paar Beispiele: 

155 = 1,55 * 

10 2 7,13 = 7,13 * 

10 ° 0,001 = 1 * 

KT 3 

Erinnern Sie sich an Ihr Schulwissen: 
Eine Zahl hoch null ergibt immer eins, 
und ein negativer Exponent erzeugt 
den Kehrwert (10 3 =1000, 10 3 = 
1/1000). Das Exponentialformat ist 
praktisch, wenn man mit nur wenigen 
Ziffern (Taschenrechner-Anzeige) 

sehr große oder kleine Zahlen darstel¬ 
len will. Die Masse der Erde beträgt 
z.B. 6 * 10 4 kg — versuchen Sie ein¬ 
mal, diese Zahl im Normalformat auf¬ 
zuschreiben! 

Der wesentliche Unterschied zwischen 
dem dezimalen und binären Exponen¬ 
tialformat besteht nun darin, daß der 
zweite Faktor nicht eine Zehner-, son¬ 
dern einer Zweierpotenz ist. Das sieht 
z.B. so aus, 

1,101 * 2 2 

wobei wir den Exponenten aus Grün¬ 
den der Anschaulichkeit weiterhin mit 
Dezimalziffern aufschreiben. Die 
Mantisse ist zwar eine waschechte Bi¬ 
närzahl, doch das Komma löst Irritatio¬ 
nen aus: Welchen Stellenwert soll man 
den Nachkommabits zuordnen? Bei 
Ganzzahl-Binärzahlen haben die Bits 
(sofern gesetzt) von rechts nach links 
einen Wert von 1,2,4,8 usw., er ver¬ 
doppelt sich mit jeder Stelle. Geht man 
in die andere Richtung (von links nach 
rechts), so halbiert er sich fortlaufend. 
Verfolgt man dieses System konse¬ 
quent weiter, so besitzt die erste Nach¬ 
kommastelle die Wertigkeit 1/2, die 
zweite 1/4, die nächste 1/8... und da¬ 
mit läßt sich schon die obige Binär-Ex- 
ponentialzahl ins Dezimalsystem um¬ 
rechnen: 

(1 + 1/2 + 1/8) * 2 2 = 6,5 
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Leider kann man nicht jede REAL- 
Zahl mit einer beschränkten Anzahl 
Nachkomma-Bits darstellen. Auch im 
Dezimalsystem gibt es ja Brüche wie 
1/3 = 0,333..., die unendlich viele 
Nachkommastellen erzeugen. Der 
Bruch 1/10 = 0,1 ist nun zwar dezimal 
betrachtet eine runde Sache, im Binär¬ 
system jedoch ein 'krummer Hund’, 
den der CPC nicht ohne Rundungsfeh¬ 
ler bearbeiten kann. Das zieht unter 
Umständen schwer zu entdeckende 
Programmfehler nach sich. Probieren 
Sie die folgende Schleife: 

FOR i=0 TO 4 STEP 0.1:PRINT i; :NEXT 

Eine Schrittweite von 0.25 macht dage¬ 
gen keine Probleme, da sich der Bruch 
1/4 im Binärsystem exakt darstellen 
läßt! 

Fünf Bytes und ein heimliches 
Komma 

Damit wären einige allgemeine Grund¬ 
lagen geklärt, und wir kommen zu den 
technischen Einzelheiten. Eine CPC- 
Fließkommazahl belegt insgesamt fünf 
Byte im Speicher. Die ersten vier Byte 
enthalten die Mantisse, die wie eine 32 
Bit lange Ganzzahl abgelegt wird: Am 
Anfang steht das Byte mit dem niedrig¬ 
sten, am Ende das Byte mit dem höch¬ 
sten Wert (siehe Diagramm). Wegen 
der normierten Exponentialdarstellung 
braucht die Position des Kommas nicht 
extra vermerkt zu werden: Es befindet 
sich immer zwischen dem vorletzten 
und letzten Bit im vierten Byte. 

Da die Normierung vorschreibt, daß 
das höchstwertige Bit 31 (die Vorkom¬ 
mastelle) grundsätzlich eine Eins ent¬ 
hält, kann auch diese Tatsache 'still¬ 
schweigend’ vorausgesetzt werden, so 
daß das Bit für einen anderen Zweck 
frei wird: Es dient dazu, das Vorzei¬ 
chen der Zahl anzugeben und enthält 
eine Null, wenn sie positiv ist, anson¬ 
sten eine Eins. Wenn der CPC mit ei¬ 
ner solchen Zahl rechnen soll, filtert er 
zunächst das Vorzeichen heraus, spei¬ 
chert es ab und setzt statt dessen die 
obligatorische Eins ein. Nach Ab¬ 
schluß der Rechenoperation nimmt das 
Bit 31 dann wieder das Vorzeichen des 
Ergebnisses auf. 

Das fünfte Byte der Zahl wird vom 
Zweier-Exponenten beschlagnahmt, 
und man sollte eigentlich vermuten, 
daß er dort schlicht und einfach als vor¬ 
zeichenbehaftete Ganzzahl im Bereich 
von -128 bis 127 abgelegt wird. Es gibt 
jedoch ein kleines Problem, daß wir 
bisher noch nicht berücksichtigt haben: 
Wegen der stillschweigenden Eins in 


der Vorkommastelle der Mantisse kann 
die Zahl Null nicht dargestellt werden! 
Das ist natürlich kein akzeptabler Zu¬ 
stand, und deshalb wird folgende Fest¬ 
legung getroffen: Für den Exponenten 
soll nur der Zahlenbereich von 1 bis 
255 zur Verfügung stehen. 

Um diese Forderung zu erfüllen, wird 
zu dem Exponenten grundsätzlich ein 
Offset von 129 (hex 81) addiert. Wenn ! 
das Exponentenbyte jedoch eine Null 
enthält, so ist die Fließkommazahl un¬ 
abhängig vom Inhalt der Mantisse 
gleich null! 

Um das noch einmal zusammenzu¬ 
fassen: 

Der Bereich von 1 bis 255 entspricht 
nach Subtraktion des Offsets 129 einem 
realen Exponentenbereich von -128 bis 
+ 126. Die größte binäre Fließkomma¬ 
zahl, die in diesem System noch dar¬ 
stellbar ist, beträgt also 1,111... * 2 l26 . 
Dezimal sind das ca. 1,7 * 10 '*, also 
eine Zahl mit 39 Stellen vor dem Kom- 1 
ma! Die auf 32 Bit beschränkte Mantis¬ 
se bewirkt allerdings, daß nur die er¬ 
sten zehn Dezimalstellen eines Ergeb¬ 
nisses zuverlässig sind; der Rest ist 
Rundungsfehler-Schrott. 

Fließkommazahlen aufs Byte 
geschaut 

Wie sieht nun eine konkrete Fließkom¬ 
mazahl in der internen Darstellung 
aus? Läßt man sie sich byteweise in 
Hexziffern ausgeben, könnte etwa Fol¬ 
gendes zum Vorschein kommen: 

00 00 00 40 83 

Um sie in das Dezimalsystem umzu¬ 
rechnen, soll zunächst das höchstwerti¬ 
ge Byte (hex 40) betrachtet werden. Bi¬ 
när sind das 01000000, das Vorzei¬ 
chenbit ganz links muß jedoch noch 
durch eine Eins ersetzt werden, wo¬ 
nach man mit Komma 1,1000000 er¬ 
hält. Der Exponent beträgt &83-&81 
(dezimal 131-129), und die komplette 
Zahl damit 1,1000000 * 2' oder dezi¬ 
mal (1 + 1/2) * 4 = 6. Solch eine Um¬ 
rechnung ist gar nicht so einfach, und 
Sie können sich jetzt vielleicht ein Bild 
davon machen, was der CPC leistet, 
wenn er bei der Bildschirmausgabe 
eine Fließkommazahl in Dezimalzif¬ 
fern übersetzt! 

Das folgende Programm dreht dagegen 
den Spieß um und liefert für beliebige 
Zahlen die interne Fließkomma-Dar¬ 
stellung: 

10 INPUT “Zahl: “, fvai' 

20 FOR i=0 T0 4 

30 PRINT HEX$(PEEK(@fvar+i) ,2) 


Preiswerte Software für Amstrad-CPC und 
Joyce mit deutschen Handbuch - so machen 
diese Super-Programme richtig Spaß! 

WS-TUNER für Wordstar * 

Vergessen Sie alles, was Sie bisher über 
WordStar-Erwcitcrungcn erfahren haben! 
Endlich können Sie Dateien per Cursor¬ 
tasten auswählen, die Tasten frei belegen, 
Textbausteine verwalten, neue WordStar- 
Befehle definieren, Textlöschungen rück¬ 
gängig machen, Steuerzeichen invers an- 
zeigen lassen, zwischendurch andere Text¬ 
dateien ansehen, drucken ohne zwischen¬ 
zuspeichern, stets freie Diskettenkapazi¬ 
tät und Textlänge ermitteln und, und, und ... 

Nur DM 49j80 

(unverbindliche Preisempfehlung) 

Großes Buch der Public Domain-Software 

Alles was Sie über deutsche PD-Software 
wissen müssen, finden Sie in diesem Buch. 
Zusätzlich die deutschen Dokumentationen 
zu den Disks 1-6, 8 und 10-12. Ideale Fund¬ 
grube für Computerterfans! Mit Rabattcou¬ 
pons für unsere Software! Nur DM 34,80 


Neu: Diskette 18 - MacroPack/Z80 

Assemblerprogrammierung für Einsteiger 
und Profis - ZöO-Makroasscmblcr mit fink- 
fähigem Code, Linker, Debugger und Editor. 


1- JRT-Pascal mit 64K-Strings, Overlays * 

2- Z80-Assembler, Linker, Debugger 

4- Compiler Small-C: Fließkommazahlen * 

5- Forth-83: Multitasking, Assembler ... 

6- Utilities: Diskmonitor, Dateiretter ... 

10- BizBasic - CPC-Basic-Erweiterung 

11- E-Basic - CBasic-kompatibler Compiler 

12- Für Turbo Pascal: INLINER, Grafik 
15- WordStar-Utilities: Fußnoten, Index * 
17- C-Interpreter - interaktiv C lernen * 

19- Telekommunikation mit MEX 

* auf dem CPC-464/664 nur mit Speichcr- 
erweiterung (64K genügen). 

Der Preis? Nur 30,- Mark pro Diskette! 
(unverbindliche Preisempfehlung) 


Unser Kom bi-Angebot: 

Eine beliebige der obigen Disketten 1-19 
und neun 3-Zoll-Disketten von Maxell für 
nur 79 Mark! Oder: WS-TUNER und neun 
3-Zoller von Maxell für nur DM 99,80! 


3-Zoll oder Vortex-Format. Lieferung per 
Nachnahme oder Vorauskasse, Ausland: 
nur Vorauskasse. 

MARTIN KOTULLA 

Grabbestraße 9, 8500 Nürnberg 90 
Telefon 09 11/30 33 33 

Weitere Bezugsquellen: 

Firma Simon, 4600 Dortmund 1. Tel. 0231/511370 
Mükra, 1000 Berlin 42, Tel. 030/7529150 
Firma Becker, 6690 St. Wendel 8, Tel. 06856/504 
Computerstore, 8500 Nürnberg, Tel. 0911/289028 
Hochholzer, 8062 Markt Indersdorf, Tel. 08136/1625 
Weeske, 7150 Backnang, Tel. 07191/1528 
Fritz Obermeier, 4972 Löhne 1, Tel. 05732/3246 
Gisbert Denz, 4784 Rüthen 2, Telefon 02902/58040 
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32-Bit-Mantisse mit Vorzeichen in Bit 31 


nieder¬ 

wertiges 

Byte 


höchst¬ 

wertiges 

Byte 

15 16_23 24_31 


Exponent 
plus &81 
Offset 


Kommaposition 

Aufbau einer Fließkommazahl im CPC 


Tabelle: Interne Zahlendarstellung einer 32-Bit-Mantisse 


40 PRINT:PRINT 
50 NEXT i 
60 GOTO 10 

Mit Hilfe der Adreßfunktion (Klammer¬ 
affe) wird der Inhalt der Fließkomma¬ 
variablen fvar byteweise ausgelesen 
und im Hexformat angezeigt. Falls Sie 
es lieber dezimal oder binär mögen, 
können Sie die Ausgabe in Zeile 30 ent¬ 
sprechend ändern. Es ist jedenfalls sehr 
lehrreich, die Eingaben systematisch 
zu variieren und die Wirkung auf die 
interne Zahlendarstellung zu untersu¬ 
chen. Bei dieser Gelegenheit kann man 
sich auch vor Augen führen, daß sich 
bei der Verdopplung einer Zahl nur der 
Exponent um eins erhöht; die Mantisse 
bleibt unverändert. Das folgende kurze 
Maschinenprogramm nutzt diese Tat¬ 
sache aus, um mit einem einzigen INC- 
Befehl eine Multiplikation mit zwei 
auszuführen! Der Aufruf erfolgt von 
BASIC aus mit CALL adr,(a)fvar; die 
Adresse der Fließkommavariablen 
wird als Parameter übergeben und be¬ 
findet sich beim Einsprung im DE-Re- 
gisterpaar: 

10 PUSH DE {Adresse 
20 POP IX {nach IX 
30 INC (IX+4) {Exponent erhöhen 
40 RET {fertig! 

Das geht natürlich im Vergleich zur 
langwierigen Fließkomma-Multiplika¬ 
tion im CPC-ROM rasend schnell. 
Auch eine Division läßt sich auf ähnli¬ 
che Weise ausführen, indem man den 
Exponenten verkleinert. Leider funk¬ 
tioniert der Trick nur, wenn der Faktor 
bzw. Teiler eine Zweierpotenz ist (also 
2,4,8...). 

Additions- Akrobatik 

Abgesehen von diesem einfachen Ein¬ 
griff sind jedoch Fließkomma-Berech¬ 
nungen, wie bereits gesagt, außeror¬ 
dentlich aufwendig. Als Beispiel sollen 
hier nur die für eine simple Addition 
erforderlichen Schritte angedeutet wer¬ 
den: Zunächst werden die Vorzeichen¬ 
bits beider Zahlen mit der obligatori¬ 
schen 1 gefüllt. Danach müssen die Ex¬ 
ponenten angeglichen werden. Zu die¬ 
sem Zweck ermittelt der CPC die Zahl 
mit dem kleineren Exponenten. Dieser 
wird schrittweise erhöht, parallel dazu 
werden die Mantissen-Bits jedesmal 
eine Stelle nach rechts geschoben. Da 
das Erhöhen des Exponenten einer 
Multiplikation mit zwei und das 
Rechtsschieben der Mantisse einer Di¬ 
vision durch zwei entspricht, bleibt der 
Wert der Zahl unverändert; sie wird 
praktisch nur 'denormalisiert’. 


Diese Vorbereitung sorgt dafür, daß 
beide Mantissen einen übereinstim¬ 
menden Stellenwert haben und nun wie 
32-Bit-Ganzzahlen byteweise addiert 
werden können; eventuelle Überträge 
werden ins jeweils nächsthöhere Byte 
übernommen. Wenn allerdings bei der 
abschließenden Addition der höchst¬ 
wertigen Bytes ein Übertrag im Carry- 
Flag auftritt, so ist noch eine Sonderak¬ 
tion fällig, um die Zahl neu zu normie¬ 
ren: Der Exponent des Ergebnisses 
wird um eins erhöht und die Mantisse 
ein Bit nach rechts geschoben, so daß 
das Carry-Bit in die nun freie Position 
31 hineinpaßt. Dort bleibt es allerdings 
nicht lange, da ja zum Abschluß wieder 
das Vorzeichen eingesetzt werden 
muß. Und wer jetzt noch wissen will, 
wie eine Fließkomma-Division oder 
gar ein Logarithmus berechnet wird, 
der sollte sich ein gut kommentiertes 
ROM-Listing besorgen und sich vor al¬ 
lem viel Zeit nehmen... 

Zum Abschluß sollen noch kurz zwei 
Verfahren erwähnt werden, die in be¬ 
stimmten Fällen eine Menge Rechen¬ 
zeit sparen können. Der erste Trick 
wird mitunter bei höheren mathemati¬ 
schen Funktionen wie Sinus und Cosi¬ 
nus angewandt, die normalerweise die 
Berechnung komplizierter Näherungs¬ 
polynome erfordern. Eine Alternative 
stellen Tabellen dar, aus denen der 
Rechner einfach die Ergebnisse ausle- 
sen kann. Natürlich ist es nicht mög¬ 
lich, eine Tabelle mit dem Sinus aller 
Winkelgrade im Speicher zu halten; 
damit wäre der CPC absolut überfor¬ 
dert. Deshalb beschränkt man sich dar¬ 
auf, in bestimmten Abständen ’Stütz- 
werte' zu erfassen, also z.B. in 1-Grad- 
Schritten. Zwischenwerte werden er¬ 
mittelt, indem man die Sinuskurve zwi¬ 
schen den Stützpunkten nähe- rungs¬ 
weise als Gerade betrachtet und 


mit der relativ einfachen Geradenglei¬ 
chung operiert (lineare Interpolation). 
Die höhere Rechengeschwindigkeit hat 
natürlich ihren Preis: Die Tabelle er¬ 
fordert einiges an Speicherplatz, und 
die Genauigkeit wird reduziert. 

Der zweite Trick besteht darin, auf das 
Exponentialformat zu verzichten und 
auf Festkommazahlen umzusteigen, 
die intern fast wie Ganzzahlen behan¬ 
delt werden können. Diese Methode ist 
allerdings im Vergleich zur Fließkom¬ 
ma-Darstellung sehr unflexibel; sie 
funktioniert nur in einem begrenzten 
Zahlenbereich, je nach dem, zwischen 
welchen Bits der Programmierer das 
Komma ansiedelt. Weiterhin muß man 
natürlich alle Arithmetik-Routinen für 
solch ein ungewöhnliches Zahlenfor¬ 
mat selbst schreiben. Trotzdem lohnt 
sich der Aufwand in manchen Fällen: 
Beim Fraktal Generator 3D wurde von 
dieser Möglichkeit Gebrauch gemacht, 
da die normale REAL-Arithmetik zu 
unerträglichen Rechenzeiten führt. 
Seine hohe Geschwindigkeit erreicht 
das Programm durch 32-Bit-Festkom- 
mazahlen mit einem Vorzeichen- und 
drei Vorkomma-Bits. Der beschränkte 
Zahlenbereich von -8 bis +8 ist für das 
Apfelmännchen und seine Kollegen 
vollkommen ausreichend. 

Wie Sie sehen, erfordert die Behand¬ 
lung von Kommazahlen nicht nur vom 
Prozessor viel Fleiß, sondern auch 
vom Programmierer, wenn er sich in 
dem vertrackten System zurechtfinden 
will. Die nächste Folge der Assembler¬ 
ecke wird noch weiteres Material zu 
diesem Thema liefern. Unter anderem 
erfahren Sie, wie man die Arithmetik 
im CPC-ROM aufrufen oder durch ei¬ 
gene Routinen ersetzen kann. 

(Matthias Uphoff/cd) 
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dk'tronics CPC 


STAR-DIVISION 


Amor: 


Spiele 




; PROWORT 219, 

j PROTEXT: 

; • 3"-Diskerte 94 ,■ 

I • EPROM 124, 

j MAXAM (Z80 Eniw.): 
j • 3"-Diskette 94, 

j -EPROM 124,. 

• MAXAM II 239, 

j PROSPELL: 
j -engl. Vers. 50,' 

j «dlsch. Vers. 70,' 

j Dtsch. Handbuch: 
j ...PROTEXT 19,80 

| ...MAXAM 19,80 


STAR-WRITER I 98,- 
DATEI-STAR 98,- 


ADRESCOMP 
DATENREM 
FAKTUREM 
FIBUKING 
LAGDAT 
TEXTKING 
COMFORM 
ETATGRAF 
FIBUCOMP 
KALKUREM 
PROFIREM 
{ VOKABI 


PROWORT 

219,- 

PROSPELL 

79,- 

MAXAM II 

239,- 


ADRESCOMP 
COMFORM 
i DATENREM 
ETATGRAF 
FIBUKING 
i LAGDAT 
1 PROFIREM 
: : VOKABI 
I FAKTUREM 
j KALKUREM 


LocoScript2 148,- 

LocoMail 1 128,- 

LocoMail 2 211,- 

LocoSpell 2 168,- 

L. Script + Spell 248,- 
LocoFile 168,- 

LocoFont 89,- 


Multiplan 198,- 

i dBase II 198,- 

1 Tassword 8000 148,- 


I Zweitlaufwerke CPC: 
(aus eigener Produktion) 
3"-Laufwerk 298, 
3,5"-Laufwerk 398, 
51/4"-Laufwerk 448, 
... AMSTRAD 
FD1* 299, 

] DDl (mitContr.) 499, 
j Anschlußkabel (•) 48 , 

! Zweitlaufwerk Joyce: 
j (aus eigener Produktion) 
i 3,5"-Laufwerk 348,' 
i 51/4“-Laufwerk 448,' 

I ...AMSTRAD- 

t FD4 499,' 


für CPC 664,6128 
Incl. Kabel 89, 


j -KonsoleCPC je 19,80 

• Monitore je 29,80 

• OMP-Drucker je 19,80 

j -Floppy's je 16,80 

: hficminnSnM 

: 373,5“ 40 39,80 

j 373,5“ 80 49,80 


Supercopy 

65,- 

Mastercopy 

69,- 


i,— Diamant von Rabenfels (g) 

Drachenland (t) 

Reise durch die Zeit (t) 

' Sherlock Holmes (g) 

Auftrag in der Bronx (g) 

Insel der Smaragde (t) 

Das Pharaonengrab (t) 

(t = text; g - Grafik; alle in 
deutsch) 

,- je Diskette 49,- 


Text • Datenbank • Grafik ■ 
Etikettendruck • Tabellen¬ 
kalkulation • engl. Handb. ■ 

Komplett für nur 98,- 


ROMBOX (CPC) 118,— 
VIDI (CPC) 348,-- 
VIDI (Joyce) 378,« 
VIDI (IBM-KOMP.) 448,- 


Headline 198,- 

RH-DAT (Datenb.) 98,— 
Turbo Pascal E. 225,- 
Twbo Toolbox i o 148,-- 
DR-Graph 198,- 
DR-Draw 198,- 
Prompt (Dateiprg.) 69,- 
Prompt Druck 39,- 
Mercator PCW 477,- 
MICA (CAD) 198,-- 
Vokabeltrainer 59,- 
Verbentrainer 49,- 
Turbo Adress 98,- 
Turbo Faktura 148,- 
Comform 59,- 

Comac Litbox 148,- 
COMAC-Kas«, Ptus168,— 
Vereinsverwalt. 198,- 
Schreiblehrgang 89,- 
PSE2 129,- 

Fleetstr. Edit. 199,- 
WS-Tuner 

für Word Star 49,80 
FISKUS 1987-1988(89) 
Lohnsteuer-Jahresausgl. 

für nur 139,- 


Supercopy 85,- 


Zubehör [1 

Schnittstellen TI 


von AMSTRAD 
Joyce RS232 198,- 

CPC RS232 org. 198,- 
... von Schneider 148,- 


... Joyce 
... PC 1512 
... PC 1640 
... Monitor PC 


NLQ 401 
Star NL/LC10 
DMP-Drucker 
LQ-Drucker 
Joyce-Drucker 
PCW95l2-Dr. 


Competit. Pro 
... durchsichtig 
Quickshot II 


Druckerkabel CPC 39,- 
Monitorverlängerung 29,50 


für 464/664: 
Speech Synth. (ROM) 148,- 
Speech Synth. (Kas.) 90,- 
Lightpen (Kas.) 68,- 

64 k Erweiterung 168,- 

256 k Erweiterung 348,- 

256 k Silicon Disk 376,- 

Uhrenmodul 128,- 

für 6128: 

256 k Erweiterung 1 348,- 

256 k Silicon Disk- 378,- 

64 k Silicon Disk- 168,- 

Speech Syn. (ROM)- 148,- 
Lightpen (ROM)- 98,- 

Uhrenmodul- 119,- 

Adapter (+) 39,- 


Steuerung Ihres CPC über 
den Bildschirm • mit hervor¬ 
ragendem Grafikprogramm 
• org. engl. Handbuch ■ 

nur 278,- 

...Handbuch deutsch 

29,80 


AMX-Maus ♦ 

Gralikprogramm + Handbuch 
...Restaufkauf aus Konkurs¬ 
masse II 

CPC 178,- Joyce 198,- 


Alles für Ihren CPC i 


dk'tronics Erw 


Seitengestalter 
... benötigt 64k Zusatzspei¬ 
cher bei 464 und 664 (nur 
dktronicsll) ■ mit orginal engl. 
Handbuch 

Stop Press 198,- 

St.Pr.+ AMX Maus 348,- 
...Handbuch deutsch 

19.80 


Stop Press Utilities 


Extra I 

Jede Menge neue Fontsl 
_ 12V 


Marconi-Trackerball jetzt auch 
für den CPCI Mit dem 
hervorragenden Grafikpro¬ 
gramm EASI-ART von Micro- 
draw. 

komplett für nur 298,— 

...komplett mit StopPress 
Paketpreis 448,— 


Gerdes Maus 


Ähnlich AMX-Mouse für CPC. 
Mit Grafiksoftware! 179,— 


Alles für Ihren Joyce 


STATISTIK-STAR 

Grafik- und Statistlkprgamm 

nur 98,- 

STAR-MAIL 

Erweiterung von LocoScript! 
Ausdruck auf Fremddruckern 
Serienbrieferstellung ... 

nur 98,- 

DATEI-STAR 

Dateiverwaltungssystem 

nur 98,- 

MAILING-SYSTEM 

Soltwarepaket: STAR-MAIL 
+ DATEI-STAR 189,» 
STAR-BASE 
Datenbanksystem 198,— 
BUSINESS-STAR 
Auftragsbearbeitung mit: 
Fakturierung / Lager/ Mahn¬ 
wesen / Datenverwaltung ... 

298,- 

FIBU-STAR plus 

Finanzbuchhaltung 298,— 
LOCO-MERGE 
Serienbrieferstellung 98,- 


Mouse Pad (GIsitmalto) 19,80 
Bildschirmfiller 59,- 

200 Endlosetiketten 16,- 


. MAXELL CF2 ID 89,- 
.Noname ID 69,- 

. CF2 DD 148,- 


CPC ♦ Joyce 

Über 1000 Interessante 
PD-Prg. Fordern Sie bitte 
schriftlich unsere Liste an. p 
Jede Diskette 20,— :: 

PD-Disk. 1-19 mit dtsch ji 
Handb (Kotulla): 
JRT-Pascal (1) • Z80 Entw. 

(2)* SmallC (4) • Forth-83 
(5) • CPC Afbeitsb. (7) • 

Cave Adventure (8) • BiZ- 
Basic (10) • Basic E- Comp 
(i i) • Dateiverwaitung (14) * 
Wordstar Utilities (15) • C- 
Interpreter (17) • Telekom¬ 
munikation MEX(19)» 

Liste sntordern f 
Jede Diskette 30.» j 

MS-DOS 

Über /OO Diskettenl Liste 
anfordern Bitte schriftlich I 

Jede Diskette 8,- j 


Joyce - Mouse Pack 


...benötigt RS232 178,- 


Mini Office* 


Professional 
Textverarbeitung • DFÜ • 
Datenbank • Tabellenkalku¬ 
lation • Geschäftsgrafik • 

Das integrierte Softwarepa¬ 
ket, für hohe Ansprüche, 
komplett für nur 138,— 

...deutscher Zeichensatz 
auf 3“-Dlskette 29,80 


AMX-Maus Joyce* 


Steuerung Ihres Joyce Über 
den Bildschirm. Mit hervor¬ 
ragender Software: AMX- 
Desktop-Programm • Notiz¬ 
buch • Kalender • engl, Handb 
nur 298,- 
Adapter_ 39,- 


Multiface II 


(Kopierprogramm) 
Vollständige Kopiereinrich¬ 
tung für Kassetten und Disk. 
Superl! 178,- 

Adapterfür 6128 39,- 


Darf - Scanner CPC 


Für DMP 2xxx/3xxx Drucker. 
Mil deutscher Anleitung I 
komplett für nur 249,— 

Adapter CPC 6128 39,- 


BTX-Modul 


Jelzt auch für CPC'sl Erlaubt 
den Anschluß Ihres CPC's an 
den BTX-Rechner der 
Bundes- Post I 398,— 


Schallpläne CPC 


CPC 464/664 
CPC 6128 
CTM644 
CTM 640 
GT 64/65 


Handbücher deutsch 


' Mini Office II 

■ AMX-Mouse 

■ StopPress 


Marqin Maker 


Ideale Papierlührung für Ihren 
Joyce-Drucker. 

nur 29,90 


Joyce-Scanner* 


MasterScan & Paint 
Scanner einfach auf 
Druckerkopf stecken und los 
geht'sl 

MasterScan 298,- 

MasterPaint 78,- 

Paketpreis nur 338,- 

Adapter 39,- 


Desktop Publisher* 


Professionelles Desktop- 
Publishing auf Ihrem Joyce 

118,- 

... kompl. mit AMX-Maus 

348,- 


dk'tronics Joyce* 


Joystick-ConraDer 
Contr.» Sound- 

Seltengestalter I Echtzeituhrenmodul- 129,- lingat nicht toll Wenn I 
Sensationelles DTP-Proor 256 k Erweiterung 248,- S» näheres über unsere 

. SSS 

St.Pr. + AMX Maus 398,- ACE 69.- Jc^w-Kaudog 4,- j 

Alle AMSTRAD lypen Alle Schneider-Typen j i 

Auszug davon: Oie absoluten Renner: 5 

• CPC 464 grün 399,- 

j CPC 6128 grün 799,- 

j Joyce (8256) 999,- 

| PCW 9512 1.699,- 

j PC 1512 MD/SD 1.299,- 
| PC 1640 MD/SD 1.799,- 
j Portable-PC 512 1.699,- 

: PC 2086 SOI 2 MO 2.499,- 
j PC 2286 DDl 2MD 3.899,» 

: AMSTRAD-Drucker: 

i LQ 3500 nur 799,- 

LO 5000 1.299,- CMP3160 599,- l"**’ "Mi ow,- j 

| DVP2160 499,- CMP4O0C 849,- Liste anfordern!! 

Karl-Heinz Weeske • Potsdamer Rtng 10- 7150 Backnang • 
Telex 724410 weeba d * Krelssparkasse Backnang * BLZ 
<60250020)74397 • Postgiro Stgt. 83326-707 • FAX 60077 

7-89 W 

COnPUTER-ELEKTROMK 

Zahlung per Nachnahme oder Vorauskasse {Ausland per Scheck) 

Versandkostenpauschaie (Inland 7,80 DM/Ausland 19,80 DM). 

Infoanforderung nur mit frankiertem A4-Rückumschlag und DM 2.- 

07191/1528-29 od. 60076 


Joyce-Spiele: 


Dataphon 21 S 278 

Dataphon 21-23 S 378 

Anschlußkabel 68 

Treibersoftware 58 

MP2 (AnseM.TV) 129 

MP3 (TV-Modulalor) 199 

CT1 (Radio-Uhr) 89 


Verschiedenes: 


dBase II 199 

Multiplan 199 

Vokabeltrainer: 

• Kassette 39 

• 3“-Diskette 49 

Verbentrainer: 

• Kassette 49 

• 3“- Diskette 59 

WS-Tuner 

IQrWordStrar 49,1 

PD-Software 
mit deutschem Handbuch 
(1-19) je 30 

Liste sntordern ! 


Batman 59, 

Bridge Player 59, 

Clock Chess 88 69, 

Colossus Bridge 53, 

Colossus Chess 69, 

F.B. Boxing 69, 

Football Fort. 69, 

Head over Heels 49, 

Jewels Darkness 89, 

Knight Orc 69, 

Pawn 89, 

Strike Force H. 69, 

Tetris 65, 

Tomahawk 79, 

[ ** Aufgepasst ** 

t Alle engt. Produkte 

I werden rrtt orginal eng) ; 
Handbuch ausgeliefeni : 
Für 2940 f)bzw. 19,80 
(••) erhalte* Sie zusätz- 
tich die jeweilige «sch 
Übersetzung. 

Joyce-Katalog 
Der Joyce Ist noch 
Isngst nicht totl Wenn 
Sie näheres über unsere 
Joyce-Produkte erfahren 
woSen. so bestellen S* 
sich doch einfach unse¬ 
ren Joyce-Katalog 4.- 


Alle Schneider-Typen i; 
Die sbeoluten Renner: 

Euro PC: 

... MM12 1.298,-; 

Tower AT: 

...201 MM 12 2.498,- i 


CPC-Spiele zum sagenhal- p 
ten Sonderpreis von: 

jede Kassette nur 20,- ji 

jede Diskette nur 30,- i 

Liste anfordern !! 
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100,- DM für 1 kByte 

Die Herausforderung 

Viele Leser haben bei uns angefragt, ob es nicht möglich 
wäre, mehr Anwendungsprogramme unter der 1-kByte- 
Rubrik zu veröffentlichen. Im Grunde spricht auch 
nichts dagegen, denn eine Zeitung und ihre Rubriken le¬ 
ben von ihrer Leserschaft. Und genau das scheinen sehr 
viele begeisterte 1-kByte-Tüftler bemerkt zu haben. Des¬ 
wegen werden wir verstärkt Anwendungen und kleine 
(aber nicht in ihrer Wirkung) Hilfsprogramme in Au¬ 
genschein nehmen. Eine Kostprobe von dem, was Sie 
noch erwarten können, bekommen Sie schon in dieser 
Ausgabe. Guten Appetit und viel Spaß! 


1. Programm: Tilgungsberechnung 

Ein Programm, das öfters gebraucht wird, als man denkt, ist 
eine Formel zur Berechnung von Zinsen und deren Auswir¬ 
kungen im Geldbeutel. Wer beim Aufnehmen eines Kredits 
sparen will, kann es mit diesem Programm tun. 

Erläuterung des Programms 

Dieses Programm dient zur Ermittlung der Laufzeit eines 
Darlehens bei vorgegebener Darlehenssumme, festem jährli¬ 
chen Zinssatz und zu wählenden monatlichen Rückzahlungs¬ 
beträgen. Es listet für jedes Jahr die Beträge von Restdarle¬ 
hen, Tilgungsanteil und Zinsanteil auf. Außerdem zeigt es 
zum Schluß den Zinsbetrag an, der im ganzen für das Darle¬ 
hen bezahlt wird. 

(Hanno Langenbacher/cd) 


2. Programm: Adreßverwaltu ng 

Eine komfortable Adreßverwaltung in 1 kByte zu bekom¬ 
men, ist schon eine beachtliche Leistung, die es verdient, 
veröffentlicht zu werden. Die Leistungsmerkmale: 

Laden: Wenn sich bereits eine Adreßdatei auf Band bzw. 
Diskette befindet, kann diese geladen werden, um sie bei¬ 
spielsweise zu ergänzen oder zu durchsuchen. Geben Sie 
dazu den Namen der zu ladenden Datei ein. Nach der Rück¬ 
kehr ins Menü wird angezeigt, wie viele Adressen sich nun 
im Speicher befinden. 

Eingabe: Wurde bereits eine Datei geladen, wird diese er¬ 
gänzt, ansonsten beginnt die Eingabe bei Adresse Nr. 1. 
Nach der Eingabe erfolgt der Rücksprung ins Menü. 
Suchen: Geben Sie ein zu suchendes Wort ein. das irgendwo 
in den Adresseen enthalten sein kann. Dabei ist es egal, ob es 
sich um ein ganzes Wort oder auch nur um einen Buchstaben 
handelt. Dadurch ist es zum Beispiel möglich, die Adressen 
aller Personen auszugeben, die in einem bestimmten Ort 
wohnen. Aber Achtung: Das Programm unterscheidet zwi¬ 
schen Groß- und Kleinschreibung. Wurde der Rechner nicht 
fündig, erfolgt ein Rücksprung ins Menü, ansonsten können 
Sie wählen, ob weitergesucht werden soll, nachdem der ge¬ 
suchte Datensatz ausgegeben wurde. 



Ändern: Um einen Datensatz zu ändern, braucht das Pro¬ 
gramm dessen Nummer. Es ist daher erforderlich, sich den 
Datensatz zuerst mit der Option ’Suchen’ anzusehen, denn 
dort wird auch die Datensatznummer mit ausgegeben. Haben 
Sie die entsprechende Nummer cingegeben, können Sie wäh¬ 
len, welchen Teil des Datensatzes Sie ändern wollen. Tippen 
Sie dazu die entsprechende Zahl ein (1 -4). Nun erscheint die 
alte Angabe auf dem Schirm. Sie können nun die gesamte 
Zeile neu eingeben. Sie können jedoch auch mit dem COPY- 
Cursor arbeiten, um Teile der alten Angabe zu übernehmen. 

Speichern: Geben Sie den Namen ein, unter dem die Adres¬ 
sen gespeichert werden sollen, und drücken Sie REC und 
PLAY am Kassetten fach. Besitzereines Diskettenlaufwerks 
brauchen dies natürlich nicht zu tun. Die Adressen werden 
dann abgespeichert. 

Verschiedenes 

Natürlich kann das Programm nicht nur zum Verwalten von 
Adressen verwendet werden. Um es für beliebige andere 
Zwecke einzusetzen, brauchen Sie lediglich die Angaben in 
der DATA-Zeile 160 zu ändern. 

Wem das Limit der zu verwaltenden Adressen mit 100 zu 
niedrig erscheint, kann dies in Zeile 10 ändern. 

Als Ergänzung des Programms ließe sich zum Beispiel eine 
Sortierroutine denken. Auch können wegen der Kürze des 
Programms nicht alle Eingabefehler abgefangen werden. 
Variablenliste: 


a 

— 

enthält die Nummer des ausgewählten 
Menüpunktes 

ad$() 

= 

ist ein Array, das alle Adressen enthält 

d$ 

= 

Dateiname 

f 

— 

ist auf 1 gesetzt, wenn eine Adresse gefunden 
wurde i,s,t Zählervariablen 

jn$ 

= 

enthält ’j’, wenn weitergesucht werden soll 

m$ 

= 

Zum Auslesen der Menüpunkte aus den 
DATA-Zeilen 

nr 

= 

Nummer der zu ändernden Adresse 

sw$ 

= 

Suchwort 

v$ 

= 

zum Auslesen des Vordrucks aus den DATA- 
Zeilen 

z 


Anzahl der Adressen 

(Stefan Segger/cd) 


3. Programm: Quadratische Gleichungen 

Mathematik ist wirklich ein Thema für sich, deswegen mei¬ 
nen wir, daß kleine Programme, die problemorientiert sind, 
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eine große Hilfe sein können und sind. Folgendes Programm 
erleichtert auf einfache Art die Lösung von quadratischen 
Gleichungen. Ein Programm zum Lösen von quadratischen 
Gleichungen, die in der Normalform ax2 + bx+c=0 vorlie¬ 
gen. Nach dem Start müssen die Werte für a.b und c eingege¬ 
ben werden, anschließend wird die Anzahl der Lösungen und 
die Lösungsmenge ausgegeben. 

Variablenliste: 

a Integer Wert von a in der quadr. Gleichung 
b Integer Wert von b in der quadr. Gleichung 
c Integer Wert von c in der quadr. Gleichung 
d Integer Wert der Diskriminanten D 
xl Integer 1. Lösung der quadr. Gleichung 
x2 Integer 2. Lösung der quadr. Gleichung 

(Stefan Platiel/cd) 


4. Programm: Interpolation 

Formeln aus Zahlenreihen oder Meßwerte errechnen leicht¬ 
gemacht. 

Stellen Sie sich vor, Sie haben viele Meßwerte vorliegen, 
und möchten diese vom Computer als Kurve dargestellt ha¬ 
ben. Jedoch ist dies mit den meisten Grafikprogrammen nicht 
möglich, denn diese benötigen keine einzelnen Werte, son¬ 
dern eine Formel. 

Aus dieser Misere hilft Ihnen nun die Methode der INTER¬ 
POLATION heraus. Denn mit diesem Programm muß man 
jetzt nur noch die Knoten und die Funktionswerte eingeben. 
Daraufhin erscheint die Formel, und Sie können mit ihr in ei¬ 
nem Grafikprogramm Weiterarbeiten. 

(Markus Holzhäuser/cd) 


5. Programm: Schreibtrainer 

Für die Fingerfertigkeit wird viel zu wenig getan, deshalb 
hier ein Programm, das Ihre Sinne und Fertigkeiten auf eine 
harte Probe stellt; denn Sie wollen sicherlich mit dem Adler- 
Such-System aufhören, um Programme einzutippen. Hier ist 
eine schnelle mögliche Lösung. 

Bedienung des Programms: Nach dem Programmstart zeigt 
der Rechner einen Buchstaben oder eine Zahl an. Man muß 
nun diese in einer vorgegebenen Zeit auf der Tastatur finden 
und drücken (manchmal benötigt man die SHIFT-Taste). 

Wenn Sie es nicht schaffen, in der vorgegebenen Zeit die ge¬ 
forderte Taste(n) zu drücken, so bekommen Sie einen Minus¬ 
punkt. Nach einigen Versuchen zeigt der Computer eine Be¬ 
wertung Ihrer Leistung an. 

Veränderungen: Damit das Programm für Laien nicht un¬ 
lösbar und für Profis nicht zu leicht wird, können einige 
Werte je nach Wunsch verändert werden. 

— Die Zeit, die der Computer auf eine Eingabe wartet (er¬ 
folgt während dieser Zeit keine Eingabe, so wird diese 
Eingabe als FALSCH gewertet). 


— Die Werte für die Benotung 

— Wie viele Versuche es in einem Durchgang geben soll. 
Aber dies sind nur einige Möglichkeiten, die durchgeführt 
werden können. Und daran denken: Übung macht den Mei¬ 
ster... 

(Sascha Lucas/cd) 


6.Programm: DATA-Hexe 

Wer eine kleine Maschinencode-Routine entwickelt oder ir¬ 
gendwo an Land gezogen hat und diese, weil sie nützlich 
oder pfiffig ist, in ein BASIC-Programm einbinden möchte, 
der hat selten Lust, den HEX-Code noch ein weiteres Mal 
einzutippen. 

Aus dieser Verlegenheit hilft die DATA-Hexe. Sie liest jeden 
beliebigen Speicherbereich aus, den man ihr angibt, und 
schreibt die Bytes auf die Diskette oder Kassette — fix und 
fertig als BASIC-Programm, bestehend aus DATA-Zeilen 
mit vorgeschaltetem Lader. 

Für die Einsteiger unter den Lesern von PC AMSTRAD In¬ 
ternational sei das Programm hier erläutert: 

Um die Variablen, die in den Zeilen 90-100 eingerichtet wer¬ 
den, brauchen wir uns zunächst nicht zu kümmern. 

Die Abfragen in Zeile 170 und 190 nehmen sowohl HEX- 
Zahlen (mit vornweg) als auch Dezimalzahlcn an. Aber 
die Sache hat einen unerwarteten Haken, der hier etwas aus¬ 
führlicher dargelegt werden muß: 

Verhexte Zahlen 

Stellen Sie sich vor. Sie hätten als Start-Adresse &7FFF ein¬ 
gegeben und als End-Adresse &8000. Stellen Sie sich weiter 
vor, diese Werte würden im weiteren Verlauf des Pro¬ 
gramms zur Festlegung einer Zählvariable für eine Schleife 
benötigt, beispielsweise so: 

F0R i=&7FFF T0 &8000 

Sie mögen jetzt sagen: Das ist ein kleiner Schritt, von 32767 
bis 32768 in Dezimal-Schreibweise, und nicht der Rede 
wert. 

Pustekuchen! Diese schöne Schleife wird überhaupt nichts 
tun, weil der Rechner die Zahl &8000 für niedriger als 
&7FFF hält, und ohne entsprechende negative STEP-Anwei¬ 
sung wird er ums Verrecken nicht abwärts zählen! Hier der 
Beweis: 

F0R i=&7FFF T0 &8000 STEP -1 

Nun wird Ihr CPC brav die Schleife abarbeiten — und zwar 
volle 65536 Male! 

Was ist hier los? Sie können versuchen, was Sie wollen, 
&8000 ist wider alle Vernunft kleiner als &7FFF. Probieren 
Sie zum Beispiel dies: 

10 a=max(&7FFF, &8000) 20 print hex$(a) 

Ergebnis: &7FFF 
Oder dies: 
print &7FFF < &8000 
Ergebnis: 0 (d.h. falsch!) 

Wir kommen der Lösung des Rätsels über das Programm 
HEXFALLE näher, das zunächst die Dezimalzahlen in 
HEX-Zahlen umsetzt und dann diese wieder in Dezimalzah¬ 
len. Dabei ergibt sich für den entscheidenden Wertebereich: 
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32766 &7FFH 32766 32767 &7FFF 32767 32768 &8000 
-32768 32769 &8001 -32767 32769 &8002 -32766 
Und hier nun die Erklärung des merkwürdigen Sprunges: So¬ 
bald der Rechner sich mit HEX-Zahlen befaßt, vergißt er so¬ 
zusagen, daß unsere Variablen eigentlich vom Typ Realzahl 
sind, und zieht sich auf die einfacher zu bearbeitenden Inte¬ 
gerzahlen zurück. Von denen allerdings kennt er nur 65536, 
wobei er die erste Hälfte (von 0 bis 32767) ganz normal 
durchzählt, wie wir’s auf der Schule gelernt haben, dann 
aber auf -32768 zurückspringt und anschließend bis -1 auf¬ 
wärts weiterzählt. Diese kuriose Zählweise geht letztlich auf 
den internen Umgang der Z80-CPU mit 16-Bit-Zahlen zu¬ 
rück; die verrückten Negativzahlen bezeichnet man auch als 
Zweier-Komplement. Und jetzt wissen Sie auch, warum In¬ 
teger-Variable auf den Bereich -32768 bis +32767 be¬ 
schränkt sind! 

Zurück zur Datahexe! 

Das eben beschriebene Dilemma lösen die Zeilen 180 und 
200. Falls die Eingabe sich als negativer Wert erweist, addie¬ 
ren wir 65536, und schon läuft alles wie geschmiert. 
Wohlgemerkt: Wenn bei der Eingabe von HEX-Zahlen alle 
beiden Werte unterhalb oder oberhalb dieser Problemzone 
liegen, macht uns das keine Kopfschmerzen. Von &6000 bis 
&7000 oder von &8001 bis &8FFF zu zählen, das ist Routi¬ 
ne. Aber wenn schon eine DATA-Hexe, dann möglichst 
auch eine ohne Hexensprünge solcher Art! 

In Zeile 250-330 entdecken Sie bei genauem Hinsehen ein 
BASIC-Programm innerhalb des Programms, nämlich als 
Inhalt der PRINT-Anweisungen. Hier wird das spätere Lade- 
Unterprogramm erstellt. Als MEMORY wird die Speicher¬ 
stelle unterhalb der anfangs eingegebenen Start-Adresse an¬ 
genommen. 

Die etwas verwirrende Zeile 310 erklärt sich daraus, daß ge¬ 
schachtelte Anführungsstriche innerhalb einer PRINT-An- 
weisung vom BASIC-Interpreter unausweichlich mißver¬ 
standen werden und deshalb hier nur in der Form 
’CHR$(34)’ dargestellt werden können. Die fertige Pro¬ 
grammzeile wird später so aussehen: 

7P0KE i, VAL(“&“+byte$) 

In Zeile 90 war die Zeilennummer 10 für die erste DATA- 
Zeile vorgeschlagen worden; wer eine andere vorzieht, 
mag’s ändern. (Die RESTORE-Anweisung in Zeile 280 wird 
automatisch nachgestellt.) Geändert werden kann selbstre¬ 
dend auch Zeile 100 mit der Variablen ’daz.lg’, die die Zahl 
der DATA-Angaben pro Zeile festlegt. Die Kombination 
von ’daz.lg = 8' mit 10 als erster DATA-Zeilennummer hat 
zwei Vorteile: Erstens bleibt man mit acht DATA-Angaben 
im Hexadezimal-System, ohne gleich auf unübersichtliche 
16 Angaben pro Zeile zu kommen; zweitens kann man die 
Gesamtzahl der DATA-Angaben mit Hilfe der Zeilennume¬ 
rierung zur Not im Kopf nachrechnen. 

In den folgenden geschachtelten Schleifen werden die Spei¬ 
cherbytes ausgelesen und in den Massenspeicher (Kassette, 
Diskette) geschrieben, in HEX-Werten ohne “&“-Vorsatz, 
und zwar in Kleinbuchstaben. (Dem Rechner ist es ohnehin 
gleich; demjenigen aber, der das Listing vielleicht irgend¬ 
wann mal abtippen muß, erleichtert es die Arbeit.) 

Die äußere Schleife hat ’x’ als Zählvariable. Die Abbruch- 
Bedingung in Zeile 380 ist bereits erfüllt, wenn ’x=adr.z’ 
ist, da wir ansonsten durch die Addition von x und y in Zeile 
420 die Endadresse schon überschreiten würden. 

Die innere Schleife stellt zwei Abbruch-Bedingungen zur 


Wahl: Entweder Überschreitung der vollen DATA-Zeilen- 
länge (Zeile 410), oder aber vorzeitiger Abbruch nach Bear¬ 
beitung der End-Adresse (Zeile 450), wobei im letzteren Fall 
die Anweisung ’y=daz.lg’ den Ausstieg aus der inneren 
Schleife ohne das umstrittene GOTO bewirkt. 

Die DATA-Zeile wird aufgebaut in Zeile 390 und 440 sowie 
460-470. (Dort Einsetzen der Kommas und Leerstellen - 
letzteres zur größeren Übersichtlichkeit der DATA-Zeilen.) 
In Zeile 500 wird die fertige Zeile zur Speicherung überge¬ 
ben. Nach der Erhöhung der Zeilennummer und der Zählva¬ 
riablen x kann gegebenenfalls der neue Durchlauf durch die 
Schleife starten. 

Sobald die DATA-Hexe ihre Arbeit getan hat, kann das Pro¬ 
gramm, das jetzt als ASCII-Datei gespeichert ist, dank der 
beigegebenen Zeilennummern ohne weiteres als BASIC- 
Programm mit LOAD bzw. RUN aktiviert werden. Sie kön¬ 
nen Ihr neugeschaffenes Programm besichtigen, es auspro¬ 
bieren, es in andere BASIC-Programme einbinden —oder 
was immer Sie wollen. 

Zum Schluß noch zwei wohlfeile Ratschläge. 

Erstens: Vermeiden Sie Start-Adressen unter &4000. Je nä¬ 
her Sie an &0000 herankommen, desto wahrscheinlicher ist 
es, daß Sie beim Starten des neu erstellten Programms die 
Meldung MEMORY FULL bekommen, weil der Platz unter 
HIMEM für das BASIC-Programm zu eng geworden ist. 
Zweitens: Wenn Sie eine End-Adresse größer als &FFFF 
eingeben, gibt’s garantiert Computer-Schnodder. Aber die 
meisten Maschinencode-Routinen sind vernünftigerweise 
sowieso irgendwo im Bereich zwischen &9000 und &AFFF 
zu finden. 

Viel Spaß also beim Hexen! 

DATAHEXE: Alphabetische Variabien-Liste 

a$ Hilfs-Variable 

adr.a! Adresse für Anfang des Auslesens 

adr.z! Adresse für Ende des Auslesens 

byte! Inhalt einer Speicher-Adresse 

daz$ DATA-Zeile im Aufbau 

daz.lg! DATA-Zeile: Zahl der Angaben 

daz.nr! DATA-Zeile: Numerierung 

file$ Datei-Name beim Abspeichern 

x! und y! Zähl variable bei Schleifen 

(Martin Lipka/cd) 


Die Bedingungen 

Hier die Bedingungen unseres Wettbewerbs: Wir suchen 
komplette Programme (bitte ohne Steuerzeichen!), die funk¬ 
tionsfähig möglichst auf allen drei CPCs laufen (was nicht 
heißen soll, daß wir bei besonders guten keine Außnahme 
machen) und die nicht länger als 1 kByte sind (Anzeige auf 
dem Datenträger gilt!). Der Preis für solche Programme be¬ 
trägt DM 100, — . Senden Sie uns Ihr Programm (maximal 
zwei Programme!) auf Datenträger (Diskette/Kassette) mit 
Programmbeschreibung (möglichst in ASCII-Form mit auf 
dem Datenträger) zu und zwar an den 

DM V-Verlag 
Postfach 250 
Stichwort 100,- DM 
3440 Eschwege 
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für 464-664-6128 

I 



5 REM Tilgungsberechnung [2228] 

10 MODE 2 : CLS [ 12 5 7 ] 

20 PRINT"DARLEHENSZINS8RECHNUNG MIT ERMITT [5512] 
LUNG V. LAUFZEIT U. TILGUNGSBETRAEGEN ":PR 
INT 

30 INPUT "Dari ehen in DM'';d [2051 ] 

40 INPUT"Zinssatz jaehrl. in *';zi [1909] 

50 INPUT"Monat 1icher Abzah1ungsoetrag an Z [6111] 
ins u. Tilgg. zus. DM”; zztt 

60 DIM zl(I),tl(I),dl(I):CLS [791] 

70 dl=d:z=zi:zt=zztt*12 [2507] 

80 PRINT"0arlehen";dl;"DM"PRINT"Zinssatz [6654] 
jaehrlzPRINT"Laufzeit wird ermit 
telt ! " 

90 U$="f*# . " : R$="####### . ## " [ 675] 


100 PRINT:PRINT"G1eichbleibender Abzahlun [6132] 
gsbetr.(Zins u. Tilgg. zus.):" 

110 PRINT"monatlich DM ";USING R$;zztt ;:P [6896] 
RINT SPC(6)"jaehrlich DM ";USING R$;zt:PRI 
NT 

120 FOR 1=1 TO 100 [326] 

130 zl=dl*(z/100):tl=zt-zl:dl=dl-tl: zs=zs+ [1996] 
zl 

140 PRINT " ";USING U$;I; [884] 

150 PRINT "Jahr Restdar1.=";USING R$;dl,:P [7216] 
RINT SPC(6)”Tilgg.=";USING R$;tl,:PRINT SP 
C(6)"Zins=";USING R$;zl 

160 IF d1< =0. THEN 170 ELSE 180 [ 1467 ] 

170 PRINT:PRINT "Insgesamt bezahlte Zinsen [5954] 
= DM";USING R$;zs:a=0:zs=a:END 
180 NEXT I [375] 
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5 REM Adressverwa1tung 
10 DIM ad$(100,4) 

20 MODE 1:RESTORE 150:FOR t=l TO 5:READ m$ 
:PRINT m$:NEXT:PRINT:PRINT"Adressen:";an 
30 a=VAL(INKEY$):IF a=0 THEN 30 ELSE CL5:0 
N a GOTO 50, 60, 70, 120, 140 
40 GOTO 20 

50 INPUT"Dateiname";d$:OPENIN d$:INPUT#9,a 
n:FOR t=l TO an:FOR i=l TO 4:INPUTÜ9,ad$(t 
,1):NEXT:NEXT:CLOSEIN:GOTO 20 
60 an=an+l:RESTORE 160:FOR t=l TO 4:READ v 
$:PRINT v$;:INPUT": ",ad$(an,t):NEXT:GOTO 

20 

70 t=0:INPUT"Suchwort“;sw$ 

80 f1ag=0:WHILE t<an 

90 t = t+1:FOR i=1 TO 4:IF INSTR(1,ad$(t . i ) , 
sw$)=0 THEN NEXT ELSE RESTORE 160:CLS:FOR 
s=1 TO 4:READ v$:PRINT v$;”: ";ad$(t,s):NE 
XT:PRINT:PRINT"Nr.";t:flag=l:GOTO 110 
100 WEND 

110 IF flag=0 THEN 20 ELSE PRINT:INPUT"wei 
ter (j/n)";jn$:IF jn$="j" THEN 80 ELSE 20 
120 INPUT"Nr.";nr:PRINT:REST0RE 160:FOR t= 
1 TO 4:READ v$:PRINT v$;t:NEXT:PRINT 
130 a=VAL(INKEY$):IF a=0 THEN 130 ELSE PRI 
NT ad$(nr,a):INPUT ad$(nr,a):GOTO 20 
140 INPUT"Dateiname";d$:OPENOUT d$:PRINT#9 
, an:FOR t=l TO an:FOR i = l TO 4:PRINTÜ9,ad$ 
(t, i ) :NEXT:NEXT:CLOSEOUT:GOTO 20 

150 DATA Laden.1, Eingabe...2, Suchen. 

...3, Aendern.. .4, Speichern.5 

160 DATA Name/Vorname., Strasse/Nr..., PLZ 

/Ort. Telefon. 


[2093] 

[605] 

[6135 ] 

[3857] 

[ 398] 
[8302] 


[5973] 


[2229 ] 

[ 679 ] 

[ 11454] 


[390] 

[4152] 

[3683] 

[5274] 

[8410] 

[2787] 

[3804] 


Listing Adreßverwaltung 


Neue Speichererweiterung für CPC 

• RAM-Erweiterung 64, 128. 256 oder 512K für alle CPCs 
Alle Versionen nachträglich aut Maximal-Version autrüstbar 

• optional 2 EPROM-Sockel mit frei wählbarer ROM-Nummer (1-15) 

• Patchprogramm lür CP/M 2.2 (63K CP/M). Endlich laufen dBase. Multiplan und Wordstar 

• Patchprogramm für CP/M Plus. CP/M Plus auch lür CPC 464/664 

• resetfesto RAM-Disc (maximal 448K) für CP/M 2.2 und CP/M Plus 

• resetfeste RAM-Disc unter BASIC (nur bei EPROM-Version) 

• 100% kompatibel zu dk'tronics RAM-Erwelterung und Silicon-Disc 

• Anschluß über den Expansionsporl (kein Eingriff in den Rechner nötig) 

• geringe Abmessungen (mit Gehäuse: 160 x 83 x 20 mm) durchgefühner Erweiterungsbus 

RAM-Erweiterung mit Software für CP/M 2.2 und CP/M Plus auf 3"-Diskette 
(wahlweise auch 3.5‘- oder 5-25“-Diskette) 

Preise ohne RAMs. 119 .- DM 64 KByte. 149 .- DM 128 KByte. 199 ,- DM 

256 KByte. 269 ,- DM 512 KByte. 419 .- DM 

Aufpreis für zusätzliche EPROM-Sockel und Software Im EPROM 49.- DM 


X-Laufwerk für CPC 464/664/6128 

Das X-Laufwerk ist ein Systemlaufwerk, das anstelle eines 3“-Zwe!tlaufwerks am CPC 664/6128 
mit eingebautem oder am CPC 464 mit zusätzlichem 3“-Controller betrieben wird. Das X-DDOS- 
Betrlebssystem wird zusammen mit einer EPROM-Karte an den CPC angeschlossen. 716 K nutz¬ 
bare Kapazität unter BASIC. CP/M 2,2 und CP/M Plus, 

• Die RAM-Belegung von X-DDOS ist nahezu 100% kompatibel zu AMSDOS. 

• Es kann softwaremäßig zwischen X-DDOS und AMSDOS umgeschaltel werden. 

• Es werden Anpassungsprogramme für CP/M 2.2 und CP/M Plus mitgeliefert. 

• Die CP/M Plus Anpassung ist auch auf einem CPC 464/664 mit 64K RAM-Erw. lauffähig. 

' Die 224-KByto EPROM-Karte hat bei Installiertem X-DDOS noch eine Restkapazität von 
208 KByte. 

• Damit X-DDOS auch in beliebigen anderen EPROM-Karten lauffähig ist, wurde völlig aul 
einen Kopierschutz verzichtet. 

• Als LOW-COST-Lösung beim CPC 464 kann das X-DDOS-EPROM auch einzeln bezogen 
und direkt gegen das AMSDOS-ROM ausgetauscht werden 


X-DDOS-EPROM. Software & Beschreibung 99,- DM 

224-KByte EPROM-Kane, X-DDOS, Software & Beschreibung 239,- DM 

5.25“ oder 3.5" X-Laufwerk, 224-KByte EPROM-Karte, X-DDOS, Sottw. & Beschr 589, - DM 

5 25" oder 3.5“ X-Laufwerk, RAM-Erw. ohne RAMs. X-DDOS, Softw, & Beschr. 589,- DM 


EPROM- Karte 224 KByte für alte CPC 

• Für die EPROM-Typen 2764. -128, -256 

• ROM-Nummern 0-15 frei wählbar 

• 7 Sockel 

• Bei 27256 zwei ROM-Nummern pro Sockel 

• Durchgeführter Expansionsport 

• Software zum automatischen Erstellen von Programmodulen (BASIC und BIN-Dateien) 


Fertiggerät für CPC 464/664 DM145,- Fertiggerät für CPC 6128 DM169- 

Modul-Software auf 3“-Dlskette DM 95,- 

Zubehör für EPROM-Karten 

EPROM 2764 DM 7,50 Protext-EPROM DM124,- Maxam EPROM DM124- 

EPROM 27128 DM 8.50 Prome/pe Plus EPROM DM114,- Utopia DM 94- 

EPROM 27256 DM11,50 X-DDOS-EPROM DM 99,- Alpha ROM DM 35,- 

EPROM 27512 DM 21.50 Time-ROM (batteriegeputferle Echtteituhr) + EPROM DM 135.- 


DOBBERTlfl 


Industrie-Elektronik GmbH 
Brahmsstraße 9, 6835 Brühl 
Telefon 06202/714 17 


Diskettenlaufwerke 

Anschlußfertige Qualitätslaufwerke von TEAC, 
2*80 Spuren, 1 MB unformatiert. 1 Jahr Garantie ! 


EURO PC 720KB 35 249.- 

360/720 KB, 5.25" O.- 


JOYCE 


726 KB, 3.5" 249.- 
726 KB, 525" 348.- 

MsCopy (ermöglicht Lesen/Schreiben von MsDos) 49.- 
40/80 Tr. Umschaltung für 5.25" und MsCopy 20.- 


CPC 


830 KB, 3.5" 298. 

830 KB, 5.25" 348. 


Zweitlaufwerke mit 830 KB formatierter Kapazität unter CP/M, 360 KB 
unter Amsdos bzw. BASIC, Lieferung umfasst ein komplett anschlußfer¬ 
tiges Diskettenlaufwerk Inkl. der Programme DiskPara und MsCopy. 


Hiclf PPITPI für alle CPC’s 79.- 

Oil O Treiberprogramm zur Erhöhung der 
Diskettenkapazität. Ermöglicht je nach Laufwerkstyp Kapazitäten bis 
830 KB unter CP/M. Voflkompatibel läuft z.B. mit: Turbo Pascal, 
DBase und Wordstar. Getestet in Schneider Aktiv 5/87, c't 5/87, PC 
Int. 6/87, CPC Magazin 4/87, Happy Computer 4/87,8. M&T Sonderheft 


pp 1512 

Pü 1640 

Festplattenkit 30 MB: 648.- 


720 KB, 3.5" 249.- 

360 KB, 5.25" 159.- 

42 MB 748.- 


Frank Strauß Elektronik 

Schmiedstr.11 6750 Kaiserslautern Tel.(0631)67096-98 

Bitte bei Bestellungen genaue Systemkonfiguration angeben. 
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10 REM Loesen von quadratischen Gleichunge [4116] 
n * 

20 MODE 2 : INK 0,24:INK 1,1:B0RDER 1 [2361] 

30 GOSUB 60:GOSUB 130:GOSUB 170 [2106] 

40 LOCATE 51,2 4:PRI NT "Bitte eine Taste dr [ 2 774 ] 
uecken !” 

50 IF INKEY$= M " THEN 50 ELSE CLS:END [1286] 

60 ' Eingabe [925] 

70 LOCATE 2,2:PRI NT CHR$(24)" Programm zum [ 6758 ] 
Loesen von quadratischen Gleichungen "CHR 
$(24) 

80 LOCATE 2,4:PRINT "Normalform: ax A 2+bx+c [3411] 
= 0 “ 

90 LOCATE 2,6:1NPUT "a=",a 
100 LOCATE 2,7:1NPUT "b=",b 
110 LOCATE 2,8:INPUT "c=",c 
120 RETURN 
130 ' Berechnung 

140 d=ROUND(b A 2-4*a*c,2):IF d<0 THEN RETUR 
N 

150 x1=ROUNO((l/(2*a))*(-b+SQR(d)),2):x2=R 
OUND((l/(2*a))*(-b-SQR(d)),2) 

160 RETURN 
170 ' Ausgabe 

180 LOCATE 2,10:PRINT "Die Diskriminante D 
hat den Wert dLOCATE 2,12 
190 IF d>0 THEN PRINT "Es gibt 2 Loesungen 
! " 

200 IF d = 0 THEN PRINT "Es gibt 1 Loesung !. 


[ 1012 ] 
[984] 
[1513] 
[ 555 ] 

[ 895 ] 

[3354 ] 

[5147] 

[ 555 ] 

[ 572 ] 

[601’ ] 

[ 2895 ] 

[3223] 


210 IF d < 0 THEN PRINT 
st leer !" 

220 LOCATE 2,14:PRINT "L={ 
230 IF d < 0 THEN PRINT 
240 IF d=0 THEN PRINT xl;"] 
250 IF d >0 THEN PRINT x1; "; 
260 RETURN 

Listing Quadratische Gleichungen 


Die Loesungsmenge i [3458] 


; x2 ; "}" 


[2158] 

[513] 

[1358] 
[861] 

[ 555 ] 


10 '** INTERPOLATION ** 

20 •** ORIGINAL: Martin Rothe 

** 

30 •** BEARBEITUNG FUER CPC: Markus Hol 2 ha 
euser ** 

40 1 

50 MODE 2:PRINT"I NT ER POLATION EINER FUN KT I 
ON" 

60 PRINT:INPUT"Anzahl der Knotenn:m=n 
70 IF n = 0 THEN END ELSE DIM t(n) ,f(n ) ,d(n , 
n),b(n),h(n) 

80 FOR i=1 TO n:PRINT"t("iINPUT "”,t 
(i):NEXT 

90 PRINT:LOCATE 40,3:PRI NT"Eingabe der Fun 
kt 1onswerte:" 

100 FOR j=l TO n:LOCATE 40,j+3:PRINT"f("t( 
j )" ) = " ; :INPUT ,f(j ) :NEXT 
110 FOR i = 1 TO n:d(l,i ) = f(i ) :NEXT 
120 FOR k=2 TO n:m=m-l 

130 FOR 1 = 1 TO m:d(k,1) = (d(k-1,l + l)-d(k-1, 

1 ) )/(t(k+l-l)-t(l)):NEXT:NEXT 

140 FOR 1 = 1 TO n:b(i )=d(i ,1):h(i )=d(i , 1) : N 

EXT 

150 FOR m=n TO 1 STEP-l:z=z+l 

160 FOR 1=n-1 TO z STEP-1:b(1)=h(i)-(b(1+1 

)*t(i)):NEXT 

170 FOR j=z TO n-l:a=h(j):h(j)=b(j):b(j)=a 
: NEXT 

180 FOR k = n TO 2 + 1 STEP-1:t(k) = t(k-1 ) : NEXT 
190 t(1)=0:NEXT 

200 PRINT:PRINT"p(x)= ";:IF h(n)<>0 THEN P 
RINT h(n ) “(x“"n -1" ) " ; 

210 FOR 1=n-1 TO 2 STEP-1 
220 IF h(1)=0 THEN 260 
230 IF h(i)<0 THEN 250 

240 PRINT" +"h(i)"(x‘"i-l")";:GOTO 260 
250 PRINT" "h(i )"(x“"1 — 1" ) " ; 

260 NEXT 

270 IF h(1)=0 THEN 310 
280 IF h(1)< 0 THEN 300 
290 PRINT" +"h(1}:GOTO 310 
300 PRINT" "h(1) 

310 CALL &BB06:RUN 


[ 1443 ] 
[1386] 

[3531] 

[117] 
[2769] 

[1262] 
[3285 ] 

( 2472 ] 

(2788 ] 

[ 2581 ] 

[ 1581 ] 
[ 936 ] 

[ 4481 ] 

[ 2531 ] 

[ 868 ] 

[ 2991 ] 

[2171 ] 

[1913] 
[ 664] 

[3902 ] 

[1153] 
( 1229 ] 
[ 1431 ] 
[ 1537 ] 
[ 1405 ] 
[ 350] 
[945 ] 

[ 1254 ] 
I1425] 
[ 704] 

[ 1044 ] 


5 REM Schreibtrainer [811] 

10 INK 0,0:BORDER 0:PAPER 0:PEN 1:INK 1,26 [3137] 
:MODE 2 

20 SPEED KEY 50,1:SPEED INK 50,50:CLEAR:SY [3261] 


MBOL AFTER 32 

30 CLS:T=0:PRINT“SCHREIBTRAINER V 2.0 (C)l [3677] 
988 BY LUCAS-SOFT" 

40 PRINT"- [ 2765 ] 


50 IF f + k=10 THEN GOTO 160 ELSE PRINT:PRIN [6060] 
T"F A LSCH E VERSUCHE :"F"RICHTIGE :"K 

60 PRINT"VERSUCH :";:I=I+1:PRINT I [1936] 

70 PRINT"DRUECKEN SIE DIE TASTE :";:B$=CHR [6224] 
$((RND*93)+32):PRINT CHR$(24)" "B$" "CHR$( 

24) 

80 PRINT“ZEIT LAUEFT" [1188] 

90 A$=INKEY$ [278] 


100 T = T+1:LOCATE 1,25:PRI NT"2EIT :"T:LOCAT [ 2755 ] 
E 1,8 

110 IF T = 5 0 THEN PRINT"2EIT VORBEI" :PRI NT" [ 3072 ] 
- TASTE :F=F+1:CALL &BB18:GOTO 30 


120 IF A$="" THEN 90 [882] 

130 IF A$ = B$ THEN PRI NT"VERSUCH"I"KORREKT" [ 2752 ] 
:PRINT"- TASTE -":K=K+1:CALL &BB18:GOTO 30 
140 IF A$ < > B$ THEN PRI NT"VERSUCH "I"FALSCH [ 7267 ] 
":PRINT"GEDRUECKT WURDE :"A$:PRINT"- TASTE 
-":CALL &BB18:F=F+1:GOTO 30 
150 GOTO 90 [312] 

160 CLS:PRINT"Benotung [1785] 

170 IF f=0 THEN PRINT"Sehr gut" [2842] 

180 IF f < 2 AND f>0 THEN PRINT"gut" [ 1988] 

190 IF f>l AND f < 4 THEN PRINT"befriedigend [ 3535 ] 


200 IF f > 3 AND f<6 THEN PRI NT"ausreichend" [ 3375 ] 

210 IF f < 9 AND f > 5 THEN PRINT"mange1haft" [ 1445 ] 

220 IF f=10 OR f=9 THEN PRINT"ungenuegend" [3885] 

230 PRINT:PRINT"- Taste —“:CALL &BB18:RUN [2386] 

Listing Schreibtrainer 


5 REM Datahexe 

10 ' Martin Lipka 1988 

20 z)=10:1 g = 8 :MODE 2 

30 PRI NT"0 A T A H E X E":PRI NT:PRINT 
40 INPUT"Name der herzuste11 enden Datei ? 
M . f 1 $ 

50 PRINT:INPUT"Start-Adresse ? ",as 
60 IF as < 0 THEN as = 65536 + as 
70 PRINT:INPUT" End-Adresse ? ",az 
80 IF az < 0 THEN az = 65536 + az 
90 OPENOUT fl$ 

100 PRINT # 9,"1 1 ";f 1 $ 

110 PRINT #9,"2 memory";as-1 
120 PRINT #9,"3 restore";zl 
130 PRINT #9,"4 for i=";as;"to";az 
140 PRINT 4»9 , "5 read byte$" 

150 PRINT #9,"6 poke i, val("CHR$(34)'& 
CHR$(34)"+byte$)" 

160 PRINT #9,"7 next" 

170 x=as-1 

180 WHILE x < az 

190 dt$=STR$(zl)+" data " 

200 y=1 

210 WHILE y<=lg 
220 byte=PEEK(x+y) 

230 a$=LOWER$(HEX$(byte,2)) 

240 dt$=dt$+a$ 

250 IF x+y=az THEN y=)g 
260 IF y <1g THEN dt$ = dt$ + "," 

270 IF y MOD 4=0 THEN dt$=dt$+" " 

280 y=y+i 

290 WEND 

300 PRINT #9,dt$ 

310 zl=z1+10 

320 x=x+1g 
330 WEND 
340 CLOSEOUT 
350 CLS 
360 END 


[423] 
[1677] 
[ 1212 ] 
[1874] 
( 3206 ] 

[1918] 
[ 1091 ] 
[2060] 
[1367] 
[ 786 ] 
[1216] 
[1786] 
[1690] 
[3114] 
[1621] 
[4637] 

[1528] 
[ 1001 ] 
[1207] 
[1171] 
[354] 

[ 1212 ] 
[ 809 ] 

[1615 ] 
[ 607] 
[1512] 
[ 1562 ] 
[1832] 
[ 809 ] 

[ 390] 

[1124] 

[940] 

[1313] 

[390] 

[902] 

[91] 

[HO] 


Listing Interpolation 


Listing DATA-Hexe 
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Bank-RSX 

Eine Alternative zum 
Bank-Manager 

Das die zweite Bank des CPC normalerweise nicht ge¬ 
nutzt wird, kann durch sogenannte Bank-Manager, wie 
zum Beispiel den mitgelieferten, geändert werden. Zu 
diesem stellt unser Programm eine kurze und wirkungs¬ 
volle Alternative dar. 


Das Programm Bank-RSX stellt die zwei Befehle | POKE und 
! PEEK zur Verfügung. 


für 6128 

Q — . ~ . 


10 REM Datalader zu Bank-RSX [1525] 

20 MEMORY &9FFF:FOR x=&A000 TO &A0AA:READ [5598] 
x$ : POKE x,VAL("&"+x$):NEXT: SAVE " BANK-RSX'' , 
b,&A000,&AB 

30 DATA 1,12,30,21,10.30,06,61,60,1,21,30, [4109] 
21,2c,a0,c3,dl,bc,17,a0,c3,30,a0,50 

40 DATA 45,45,ob,0,0,0,0,0,0,26,30,c3,45,3 [3345] 
0,50,4f,4b,c5,0,0,0,0,0,0 

50 DATA fe,2,20,6a,dd,6e,2,dd,66,3,cd,60,a [2083] 
0,dd, 4e ,0,dd, 46 , 1 , 2 , c9 ,fe, 2 ,20 

60 DATA 55,dd,7e,0,dd,5e,2,dd,56,3,cd,80,a [3337] 
0,c9,d,a,45,52,52,4f,52,d,a,0 

70 DATA e5,c5,7c,e6,c0,7,7,f6,c4,1,0,7f,ed [5288] 
,79,cb,bc,cb,f4,4e,3e,c0,ed,79,79 



Listing Bank-RSX 


| POKE, adr, wert 

schreibt in die angegebene Adresse der zweiten 64-kByte- 
Bank einen Wert. Dieser muß zwischen 0 und 255 liegen. 

| PEEK, adr, ®p% 

liest aus der Adresse adr den Wert aus und übergibt diesen an 
die Variable p%. 

In Maschinensprache wird | POKE,Adr,Wert einfach durch 
CALL &A080 ersetzt, wobei das DE-Register die Speicher¬ 
adresse und das A-Register den Wert enthält. Der Befehl 
| PEEK,Adr,@p% wird hier durch CALL &A060 ersetzt, 
wobei das HL-Register die Speicheradresse und das A-Regi¬ 
ster als Ausgaberegister für den Inhalt fungiert. Andere Re¬ 
gister werden nicht verändert, so daß auf PUSH oder POP 
bei Aufruf dieser Routinen verzichtet werden kann. 

(Berthold Hagmann/rs) 


80 DATA cl,el,c9,0,0,0,0,0,e5,c5,d5,el,1,0 [2561] 
,7f,4f,7c,e6,c0,7,7,f6,c4,ed 

90 DATA 79,cb,bc,cb,f4,71,3e,cO,ed,79,79,c [4471] 

I,el,c9,21,56,a0,7e,fe,0,c8,cd,5a,bb,23,18 
. f 6 


10 REM Lader fuer Bank-RSX.BIN [1786] 

20 MEMORY &9FFF:LOAD"BANK-RSX.BIN":CALL &A [2854] 
000:pX=0 

30 ' [117] 

40 t$="8EFEHLE: !PEEK,Adr,@pX u. !POKE,Ad r [9400] 
,Wert*":adr=lNT(RND*65500):CLS:PRINT"Tests 
tring an Adr.";adr:PRINT 

50 FOR x=1 TO LEN(t$):!POKE,adr+x-1,ASC(MI [3265] 
0$(t$,x)):NEXT:x = ad r 

60 lPEEK,x,@pX;IF p%<>42 THEN PRINT CHR$(p [39131 
%) ;:x=x+l:GOTO 60 


Listing Bank-RSX 


Schattenhaft 


Umrisse 

Wer sich gerne mit dem Manipulieren von Bildschirmen 
beschäftigt, ist über jede neue Routine oder jedes neue 
Programm erfreut, das interessante Effekte zustande 
bringt. 


für 464-664-6128 

I 


10 • UMRISSE [985] 

20 ' [117] 

30 1989 by Bjoern Quentin [619] 

40 [117] 

50 IF PEEK(6)=128 THEN ad=&BlCB ELSE ad=&B [3396] 

7C6 

60 MEMORY &4000-1:MODE 2:PRINT TA8(35);" U [5652] 
M R I s S E":INPUT" MODUS :",m:JF m<0 OR 
m>2 THEN 60 

70 INPUT" FILE :",f$:MODE m:LOAD f$,&400 [3572] 


Listing Schattenhaft 


Mit “Umrisse“ ist es möglich, Bilder so zu verändern, daß 
nur noch die Umrisse übrigbleiben. Nach dem Start muß man 
nur den Filenamen und den Bildschirmmodus eingeben. Ist 
das Bild fertig, ertönt ein langer Piepston. Nun wird auf ei¬ 
nen Tastendruck gewartet. Wird jetzt die SPACE-Taste ge¬ 
drückt, so wird das Bild unter dem alten Namen abgespei¬ 
chert. Andererseits wird das Programm beendet. Bei Kasset¬ 
tenbetrieb ist darauf zu achten, daß man das Bild zweimal 
hintereinander mit demselben Namen abspeichern muß. 

(Björn Quentin/cd) 


0:LOAD f$,&C000 

80 ys = 2:IF m=0 THEN xs = 4 ELSE IF m=1 THEN [ 2687 ] 
xs = 2 ELSE x s=1 

90 FOR x=0 TO 640 STEP xs:FOR y=0 TO 400 S [3554] 
TEP ys 

100 POKE ad,&40:f=TEST(x,y):IF f THEN IF T [5633] 
EST(x-xs,y )=f AND TEST(x +xs,y ) = f AND TEST( 
x,y + ys ) = f AND TEST(x,y-ys) = f THEN POKE 3d, 


&C0:PLOT x,y,0 

110 NEXT y:NEXT x [401] 

120 POKE ad,&CO:SOUND 1,100,200,7 [676] 

130 i$=INKEY$:IF 1$="" THEN 130 [1330] 

140 IF i$=" " THEN SAVE f$,b,&C000,&4000 [1783] 

150 END [110] 


Listing Schattenhaft 
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Schreibarbeiten 

Eine andere Schrift in Mode 0 


Der Umstand, daß die Schrift in Mode 0 nicht allzu be¬ 
rauschend ist, dürfte jedem aufgefallen sein. Die vielen 
Farben, die in diesem Modus genutzt werden können, 
sollten selbstverständlich bei einer Änderung dieser 
Schrift auch nicht unbeachtet bleiben. 


Das Programm Klcinschrift stellt Ihnen zwei neue RSX-Be- 
fehle zur Verfügung, welche es Ihnen ermöglichen, mit einer 
ganz anderen Schrift zu arbeiten. 

Mit 

| PRINT, a,b,@a$ 

wird der Textausdruck a$ an der angegebenen Bildschirmpo¬ 
sition a,b ausgegeben. Die Variable a bestimmt die X-Koor- 
dinate, wobei Werte im Bereich von 0 bis 158 zugelassen 
sind. Die Variable b muß einen Wert von 0 bis 192 enthalten 
und stellt die Y-Koordinate dar. 

Wie schon angedeutet, lassen sich die Farben des auszu¬ 
druckenden Textes auch definieren. Dies bewirkt der RSX- 
Befehl 

| INK,a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p 

Bei der Belegung der Variablen a bis p sollten Sie noch fol¬ 
gendes wissen: 

Die 16 Werte beziehen sich jeweils auf die Vorder- und Hin¬ 
tergrundfarbe der jeweiligen Pixelzeile eines Zeichens. A 
beinhaltet also den Wert für den Vordergrund und b den Wert 


Kl^in-schri-f + von» LJol-fganu 

Z um Ueirg lei ein : 
x e- Or* x g ima 1 sclir- x ft 


Dies zeiat die Farbenvielfalt 


Es u«rd«n zwei neue Befehle initialisiert: 

IXMKj. b, c, d, e.. 3 , h., i , j> k, 1> r-»_. n.. o_. p 

Der neue Zeichensatz= 

J^tfc?? i-Ä" c ? *- 1 /0123MS6789«j <=>?@ftBCpEFG 

HIJKLMr40PQR^TUMWKV2C\3T_*-abcde-f3hijl{lra 
r» f- q r s + u «.* k y z < I > 


Abb.l: So präsentiert sich das Programm nach dem Starten 


für den Hintergrund der ersten Pixelzeile. Die nachfolgenden 
Variablen werden nach dem gleichen Prinzip mit Werten be¬ 
legt. 

Eintip pen 

Die Zeilen 10 bis 1100 enthalten das eigentliche Programm. 
Sie beinhalten die Werte und installieren die zusätzlichen 
RSX-Befehle im Speicher. Die nachfolgenden Zeilen sind 
nur zur Demonstration untergebracht worden. Sie sollten am 
Anfang mit eingetippt werden, können jedoch später nach 
dem ersten Starten wieder gelöscht werden. 

(Wolfgang Halder/rs) 


für 464-664-6128 



10 ' 

KLEINSCHRIFT 

[ 679 ] 

20 ' 

von Wolfgang Haider 

[938 ] 

30 ' 


[117] 

40 ' 

Benutzung: 

[ 702 ] 

50 1 


[117] 

60 ' 

"!PRINT,a,b.@a$" 

[ 756] 

70 • 


[117] 

80 ' 

a=X-P0SITION (0-158 

[1474] 

90 ' 

nur gerade 

[ 1039 ] 

100 

• Zahlen ) 

[ 698] 

110 

b=Y-P0SITION (0-192) 

[1932] 

120 

a$=Text 

[ 490] 

130 


[117] 

140 


[117] 

150 

' "lINK.a.b.c.d.e.f.g.h.i.j.k.l 

[2353] 

160 

, m, n , o , p 

[ 227] 

1 70 


[117] 

180 

' a= PEN erste Linie des Zeichens 

[2470] 

190 

' b=PAPER erste Linie des Zeichens 

[1511] 

200 

' c=PEN zweite Linie des Zeichens 

[2059] 

210 

‘ d = PAPER zweite Linie des Zeichens 

[ 1421] 

220 


[117] 

230 

' und so weiter 

[1346] 

240 


[117] 

250 


[117] 

260 

MEMORY &7FF F:READ A$:RESTORE:FOR A = &60 

[ 10759 ] 


00 TO 8.84E3 STEP LEN ( A$ ) /2 : READ A$:FOR 8=1 
TO LEN(A$):C=VAL( "& "+MID$(A$.B,2)):POKE A 
+(B/2),C:NEXT:NEXT: CA L L &8000:POKE &8000.& 
C9:POKE &806E.&7E 


270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 

500 

510 

520 

530 

540 

550 

560 

570 

580 

590 

600 

610 

620 

630 


DATA 210S80010D80C3D1BC000000001580 
DATA C31E80C375815052494ED4494ECB00 
DATA F E03C0CD11BCFE00C0DD7E02FEC1 DO 
DATA C6076F0D7E04FE9FD05F0F32588126 
DATA 001600CD1DBCE5DD6E00DD66014623 
DATA 5E2356EBD1C53A5881473E50903257 
DATA 81C1B7C8C5015981ED4369817EE5D5 
DATA FE203870FE7D306CD62001F0816F26 
DATA 0029292909CB462025CB4E203E3A57 
DATA 81D602FE5130143257813E02321181 
DATA CD0981D1E1131323C110BDC9 D1E1C1 
DATA C93A5781D603FE5130F33257813E03 
DATA 321181CD0981D1E113131323C39E80 
DATA 3A57813DFE5130073257813E013211 
DATA 81CD0981D1E11323C39E80473A5781 
DATA D604FE5130BB3257813E0432118178 
DATA CDA5BBF3D979CB91ED49D9FBCD0981 
DATA D1E11313131323C39E8006084E23E5 
DATA C5D50604AF214981CB0130017E23CB 
DATA 013001B6C5E5CD6B814F2FA44779A5 
DATA B0E14712C1CD4B8110DCD1EBCD26BC 
DATA EB2A69812323226981C1E110C3C9AA 
DATA 551CC0147AE607C07AD60857C90000 
DATA COOOCOOOOCOOOCOOCCOOCCOO 3 OOO 3 O 
OATA 000000D52A69815E2356EBD1C9FE10 
DATA C0215981DD7E1ECDDC81DD7E1CCDDC 
DATA 81 DD7E1ACDDC81DD7E18CDDC81D07E 
DATA 16C0DC810D7E14CDDC81DD7E12CDDC 
DATA 81DD7 E10CDDC81DD7E0ECDDC81 DD 7E 
DATA 0CCDDC81DD7E0ACDDC81DD7E08CDDC 
DATA 81DD7E06CDDC81DD 7E04CDDC81 DD 7E 
DATA 02CDDC81DD7E00CDDC81C9CD2CBC77 
DATA 23C927383820574F4C4647414E4720 
DATA 470200000000000000828080808000 
DATA 8000AOAOA000000000005150F850F8 
OATA 5050002178A07028F02000A0A02040 
DATA 80A0A0002150206890B04800404080 


[ 1946 ] 
[1770] 
[932 ] 
[1777] 
[2194] 
[1595] 
[2496] 
[ 1535]- 
[ 2010 ] 
[1311] 
[1530] 
[ 1987 ] 
[1667] 
[1747] 
[ 2125 ] 
[1701] 
[ 1542 ] 
[1596] 
[1077] 
[1696] 
[2267 ] 
[ 1629 ] 
[1139] 
[ 1346 ] 
[2136] 
[1594] 
[2089] 
[2551] 
[1311] 
[ 2545 ] 
[1342] 
[2263] 
[1383] 
[ 1912 ] 
[1412 ] 
[1168 ] 
[1483] 
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640 DATA 000000000020408080804020008040 
650 DATA 20202040800000A040E040AOOOOOQO 
660 DATA'4040E04040000000000000Q0404080 
670 DATA 000000E00000000002000000008080 
680 DATA 0020204040408Q800040AOAOAOAOAO 
690 DATA 400040C04Q404040E000C020204080 
700 DATA 906000C02020C020200000AOAOA060 
710 DATA 20202000608080402020C000608080 
720 DATA COAOA04000EOA020404040400040AO 
730 DATA A040AOA0400040AOA0602020C00002 
740 DATA 000080008000000000404000404080 
750 DATA 0020408D804020000000E000E00000 
760 DATA 00008040202040800040A020404000 
770 DATA 40007188B8B88880700040AOAOEOAO 
780 DATA AOAOOOCOAOAOCOAOAOC00040A080BO 
790 DATA 8OAO4OOOCOAOAOAOAOAOCOOOEO8O8O 
800 DATA C08080EOOOE08080C08080800040AO 
810 DATA 8O8OAOAO6OOOAOAOAOEOAOAOAOOOEO 
820 DATA 4040404040E0006020202020A04000 
830 DATA A0A0C0C0C0A0A000808080808080E0 
840 DATA 0089D8A88888888800C9C8A8A89898 
850 DATA 88OO4OAOAOAOAOAO4OOOCOAOAOCO8O 
860 DATA 80800040AOAOA0A0AO4O2OCOAOA0C0 
870 DATA AOAOA00040A0804020A04000E04040 
880 DATA 4040404000AOA0A0AOAOAO4OOOA0A0 
890 DATA A0A0A040400089888888A8D88800A0 
900 DATA A0A040A0A0AO00AOA0AO4O40404000 
910 DATA E02020408080EOOOE08080808080EC 
920 DATA 008080404040202000E02020202020 
930 DATA E00040EOE040404040000000000000 
940 DATA 0000F080804000000000000000C020 
950 DATA 6OAO6OOO8O8OCOAOAOAOCOOOOOOO6O 
960 DATA 8080806000202060AOAOA060000000 
970 DATA 40A0E0806000204040E04040400000 
980 DATA OO6OAOAO6O2OCO8O8OCOAOAOAOAOOO 
990 DATA 8200808080808000200020202020AO 
1000 DATA 408080A0A0C0A0A000C04040404040 
1010 DATA EOOOOIOO5OA8888888OOOOOOCOAOAO 
1020 DATA AOAOOOOOOO4OAOAOAO4OOOOOOOCOAO 
1030 DATA AOC08080000060AOA0602020000060 
1040 DATA 8080808000000060804020C0004040 
1050 DATA E040404020000000AOAOAOA0600000 
1060 DATA OOAOAOA04040000100888888A85000 
1070 DATA OOOOAOAO4OAOAOOOOOOOAOAO6O2OCO 
1080 DATA 000000E0204080E000204040804040 
1090 DATA 200082808080808080008040402040 
1100 DATA 40800040A00O0000O000O00000000O 
1110 REM 

1120 REM DEMONSTRATION 
1130 REM 

1140 MODE 0:INK 0,0:BORDER 
2,25:1NK 3,24:INK 4,15:INK 
1150 IINK,1,0,2,0,3,0,4,0,5,0,5,0,6,0,6,0 
1160 a$=" K 1ein":b$="schrift":c$=" von Wolf 
gang Ha1der":FOR x=0 TO 192:CALL &BD19:;PR 
INT,12, x,@a$ :NEXT : FOR x = 0 TO 192:CALL &BD1 
9:!PRINT,30,x,@b$:NEXT:FOR x=0 TO 12:CALL 
&BD19:NEXT:iPRI NT,60,192,@C$ 

1170 PRI NT:PRI NT 

1180 IINK, 1,7, 1,7, 1,8,1,8,2,9,2,9,2, 10,2,1 


INK 1,26:INK 
6 :INK 6,3 


[1625] 

[ 1593 ] 
[1700] 

[ 1589 ] 
[ 2200 ] 
[2130] 
[2074] 

[1114 ] 

[ 1761] 

[ 1335 ] 

[1433] 

[ 1733] 

[ 1876] 
[2094] 
[1607] 

[2139 ] 

[ 1993] 
[1569] 

[ 1262] 
[1494] 
[ 2212 ] 

[ 1670 ] 
[1179] 
[1615] 

[1681] 
[2132] 
[2265] 
[2015] 
[1465] 

[1943] 
[1559] 
[2346] 
[1796] 

[2289 ] 

[ 1269 ] 

[1562] 
[1427] 
[2289] 

[1864] 

[1297] 

[1159 ] 

[1948] 
[1762] 

[2658 ] 

[ 1564 ] 
[1565] 
[959 ] 
[272 ] 

[ 1540] 

[ 272 ] 

[4568] 

[ 1788 ] 

[ 11514] 


[ 743] 

[ 2098 ] 


Die Origina [3794] 


1190 PRINT" Zum Vergleich 
1 sehrift" 

1200 INK 7,1:INK 8,2:INK 9,11:INK 10,14 
1210 a$=" Dies zeigt die Farbenvielf 

alt ":I PRINT,12,140,@a$ 

1220 IINK,5,0,5,0,5,0,5,0,4,0,4,0,4,0,4,0 

1230 a$=" Es werden zwei neue Befehle in 
itialisiert:":1 PRINT,0,100,@a$ 

1240 IINK,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0 

12 50 a$ = SPACE$(20) + " I PRI NT,a,b,@a$" : I PRINT 

, 0 , 80 ,@a$ 

1260 a$="I INK,a,b,c.d,e.f,g,h,i,j,k,1,m,n, 
o, p" 

1270 I PRINT,6,60,@a$ 

1280 a$ = SPACE$(20) + "Der neue Zeichensatz: “ 
: I PRINT,0,45,@a$ 


1290 a$ = " " 


XT:!PR I NT,0,30,@a$ 


1300 a$="" 


FOR t=32 TO 71:a$=a$+CHR$(t):NE 


FOR t= 72 TO 109:a$ = a$ + CHR$(t) : N 


EXT: I PRINT,0,30-8,03$ 

1310 a$= "":FOR t=110 TO 125:a$ = a$ + CHR$(t) : 
NEXT:|PRINT,0,30-16,@a$ 

1320 CALL &BB06: 

1330 WINDOW 1,20,25,25 
1340 REM 2.1 
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[ 1415] 
[5156] 

[1519] 

[5169 ] 

[2175] 

[ 3338 ] 

[3236] 

[984] 

[2940 ] 

[3357] 

[3488] 

[4958] 

[417] 
[1187] 
[ 528] 


Eine Bitte 
an unsere 
Abonnenten 


Vermerken Sie bei 
Schriftverkehr und 
Zahlungen neben der 
vollständigen 
Anschrift stets Ihre 
Abo-Nummer. 

Sie vermeiden damit 
unnötige Verzögerun¬ 
gen bei der 
Bearbeitung Ihres 
Abonnements. 


Vielen Dank 

Ihre DMV- 
Versandabteilung 


AMSTRAD - Computer 
Software + Zubehör 

AMSTRAD-Computer auf Anfrage 


JOYCE-Zubehör: 

Farbband 8256/8512 12,90 

Papierführung 29,50 

3“-Markendisketten 10 St. 59,90 
Farbband 9512 17,95 

Typenräder 9512 25,00 

Typen räder SD15 25,00 

Diskettenbox f. 12 Disk. 9,95 

Diskettenbox f. 40 Disk. 14,95 

Diskettenbox f. 80 Disk. 18,95 

PC-Zubehör: 

5 1/4“-Disketten 2D 10 Stück 6,95 
3 1/2“-Disketten 2DD 10 Stück 25,00 
20-MB-Filecard 698,00 

Druckerkabei par. 1,8 m 17,70 
STAR LC10 (deutsch) 570,00 
AMSTRAD LQ3500 780,00 

Druckerständer 29,95 

Farbband LC10 15,95 

Farbband NEC P 2200 16,95 

Abdeckhaube Tastatur 1512/1640 16,95 
Abdeckhaube Monitor 1512/1640 39,50 
Genius Dyna Mouse 135,00 

Laufwerk 3 1/2“ 220,00 

Joy-Stick 29,95 

Haftetiketten endlos 100 Stück 8,95 
TextMaker 2.0 248,00 

PC 1512 1 LW/Mono 1.170,00 
PC 1640 2 LW/Mono 1.798,00 
24-N.-Drucker LQ5000 1.150,00 


Weitere Preise auf Anfrage! 
Preisliste gegen Rückporto. 
Lieferung per Nachnahme oder Voraus¬ 
kasse (Versandkostenpauschale DM 11,40 
pro Paket). 


Kosmalla & Partner 
Datenverarbeitung GmbH 
Bliesstr. 5, 6700 Ludwigshafen 
Tel.:0621-51 9749 


Das ideale Werkzeug für jeden dBASE-Anwender 

dBINT 

DIE Erweiterung für dBASE III und dBASE III Plus 

Mit dBINT können Sie sämtliche DOS-lnterrupt's ohne Assemblerkennt¬ 
nisse nutzen und dadurch Ihre dBASE-Programme effektiver gestalten. 
dBINT enthält über 100 dBASE-Prozeduren. Damit können Sie z.B. 

• Bildschirm scrollen 

• Bildschirm direkt lesen und beschreiben 

• Textdateien bearbeiten 

• Datenfernübertragung betreiben 

• Eine Maus steuern 

• Und - und - und - und - und - und - und 

Mit dBINT erhalten Sie auch ein Utility für die Window-Programmierung. 
Bis zu 10 Fenster können gleichzeitig geöffnet sein. Sie können Fenster 
scrollen. speichern, löschen und beschreiben. Kurzum, alles was zu einer 
professionellen Bildschirm-Verwaltung gehört. 

Ein unbedingtes MUSS 
für jeden dBASE-Programmierer 

dBINT ist auf 5 1/4" und 3 W Disketten lieferbar 

NUR DM 198.-(sfr 180.-/ÖS 1500.-) 

Unverbindliche Prersemplehlung 

Inklusive leichtverständlichem deutschem Handbuch 

Lieferung gegen Nachnahme, Verrechnungs-Check oder Vorausrahlung Jul Konto SKA, CH-88IU Usier 
(J.B. AlMAT DATA Klo. 604'776-71), ruriigllch Versandkoslenanieil OM 8. -/sfr 7.-7ÖS 80 - 

ALMAT-Z?>ra Brunnenstrasse 1 

CH-8610 Uster 

Tel. 01/94145 72 Fax 01/940 47 84 

TBINT als Version für Turbo-Basic lieferbar 
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I—Tips & Tricks 


Pagemaker 

Dem Directory an den Kragen 

Ladeanweisungen per CAT auf dem Bildschirm!? Zau¬ 
berei?! Nein, durch eine kleine Software-“Trickserei“ 
wurde dieses Kunststück erreicht. Wir zeigen Ihnen, wie 
das möglich ist. 

Grundlagen 

Um das System, mit dem gearbeitet wird, zu verstehen, muß 
man sich erst einmal die Funktionsweise des CAT-Befehls 
klarmachen: Zuerst werden die vier Sektoren in den Speicher 
gelesen, dann gemäß dem aktuellen USER aussortiert. Sie 
können also theoretisch zu jedem USER eine Ladeanweisung 
erstellen. Nun werden die übriggebliebenen Dateinamen al¬ 
phabetisch geordnet und der aktuelle Bildschirmmodus er¬ 
mittelt, demzufolge wird errechnet, wie viele Dateinamen 
auf dem Bildschirm nebeneinander dargestellt werden kön¬ 
nen. Damit Sie nun Ihre Dateinamen in gewohnter, sortierter 
Reihenfolge begutachten können, müssen sie entsprechend 
ausgegeben werden. Gehen wir zum Beispiel von MODE 2, 
also von vier Spalten, für das Directory aus. Nehmen wir 
auch einmal an, daß 16 Dateinamen auszugeben sind, dann 
stehen in der ersten Spalte Nummer 1 bis 4, in der zweiten 5 
bis 8 usw. In der ersten Zeile aber werden nebeneinander die 
Nummern 1, 5, 9 und 13 ausgegeben! Das Betriebssystem 
leistet also einiges bei der Ausführung des CAT-Befehls. 


LOCATE-Befehl setzen, damit die tatsächliche Darstel¬ 
lungsfolge gleich ist. Durch den LOCATE-Befehl gehen na¬ 
türlich bei jedem Directory-Eintrag von elf (acht und drei) 
drei Zeichen (Steuerzeichen für LOCATE, x-,y-Koordinate) 
verloren. Doch es kommt noch schlimmer: CAT gibt nach 
dem achten Zeichen des Namens einen Punkt aus, der die 
drei Zeichen der Extension abtrennt. Um diesen Störenfried 
zu entfernen, wird der Cursor nach dem Punkt ein Zeichen 
zurückgesetzt (CHR$(8)), damit ersterer einfach überschrie¬ 
ben wird. Somit ist auch das neunte Zeichen vergeben und 
übrig bleiben sieben. Richtig! CAT teilt einem ja auch die 
Länge einer Datei in kByte mit. Diese Mitteilungen zu über¬ 
schreiben, wäre zu kompliziert. Man muß also deren Dar¬ 
stellung verhindern: CHR$(21) schaltet den Bildschirm ab, 
CHR$(6) wieder an. Das letzte Zeichen eines jeweiligen Ein¬ 
trags schaltet den Bildschirm ab, das erste des nächsten 
schaltet ihn wieder an. Es bleiben also noch fünf Zeichen, die 
genutzt werden können. Nun kommt noch der Luxus, der 
auch nicht vergebens ist! Will man nämlich verschiedene 
PEN-Farben benutzten, so reicht eine einmalige PEN-An¬ 
weisung nicht aus, denn Silben vorhergehender Wörter, die 
aufgrund der alphabetischen Sortierung genausogut erst viel 
später ausgegeben werden können, würden sonst ebenfalls 
mit der neuen PEN-Farbe dargestellt werden. Bei dem Sil¬ 
bensalat, der beim Pagen entsteht, wäre das Ergebnis sicher 
zu bunt! Man kann demzufolge nicht umhin, das PEN-Kom- 
mando in jeden Directory-Eintrag unterzubringen. Fünf mi¬ 
nus zwei macht drei! Von den ursprünglich elf Zeichen ver¬ 
bleiben drei, die für den tatsächlichen Text zur Verfügung 
stehen. Aus diesem Grunde werden Sie auf einer Diskette 
nicht 16 oder mehr komplette Bildschirmseiten unterbringen, 
ebensowenig wie auch nur eine Seite auf einer Diskette, die 
nur noch zirka zehn von den 64 Einträgen frei hat. 


Der Trick: 


Das Programm 


Will man sich über dieses System hinwegsetzen, so muß man 
zu einem Trick, nämlich zu den Steuerzeichen, greifen: Vor 
jedes Textstück, die ja alphabetisch sortiert werden, einen 


CALL für lesen : &A007 

CALL für schreiben : &A01C 

Buffer für Drive : &A100 

Buffer für Track : &A101 

Buffer für Sektor-ID : &A102 

Buffer für Buffer (L): &A103 (H) : &A104 


Tabelle I: CALL-Befehle, die im Pagemaker benutzt w erden 


Das Programm generiert zuerst ein kurzes Maschinenspra¬ 
cheprogramm. das für das Lesen und Schreiben von Sektoren 
zuständig ist (siehe Tabelle 1). Nach dem Bildaufbau wird 
die zu bearbeitende Diskette in Laufwerk A: angefordert, 
ihre Formatierung festgestellt und die vier Sektoren, die das 
Directory enthalten, werden in den Speicher ab Adresse 
&9000 geladen. Nun sucht das Programm freie Directory- 
Einträge und fragt nach der Usernummer, die den erstellten 
Einträgen vorangestellt werden soll (0 bis 255). Bei den nun 
folgenden Parameterabfragen sind optionale mit einer vor¬ 
herigen J/N-Frage versehen. Wollen Sie den betreffenden 
Parameter nicht verändern, so drücken Sie “N“. Die erwar¬ 
teten Parameter sind jeweils angegeben. Bei Farbfunktioncn. 



Directory Pacemaker 1.0 bu Ulli Reif 


Um dieses Programm zu starten 


RUN"PAGE" + ENTER 


eintippen 


opyright PC AMSTRAD International 


Bild I: VORHER; Dieser Katalog entspricht dem normalen Atisgahejormut 


Bild 2: NACHHER; So ähnlich könnte auch Ihr Disketten-Katalog aussehen 
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Tips & Tricks—i 


die zwei INK-Farben erlauben, ist die zweite (in eckigen 
Klammern) optional, das heißt, sie muß nicht angeben wer¬ 
den. Zwischen den einzelnen Parametern ist ein Leerzeichen 
und kein Komma zu setzen. Bitte beachten Sie beim 
LOCATE-Kommando, daß die Spaltenanzahl vom gewähl¬ 
ten MODE abhängig ist. Im unteren Fenster werden die mo¬ 
mentan freien Plätze angezeigt. Während der Texteingabe 
läuft nur die Anzeige für freie Zeichen zur Kontrolle mit. 



für 464-664-6128 


10 ’ MC generieren 

20 DEFINT a-z:MEMORY &BFFF:FOR a=&A007 TO 

&A02 9:READ w$:POKE a,VAL("&"+w$>:NEXT 

30 OATA 21,0,Al,5E,23,56,23,AE,23,6E, 3A,4, 

A1,67,0F,19,A0,C9,66,C6,7,3E 1 4E,32,19,A0,C 

0 1 7,AO,3E,66,32 1 19 l A0,C9 

40 'Screen aufbauen 

50 MODE 2:WINDOW #1,2,79,2,6:WINOOW#2,2,79 
,8,16:WIN DOW# 3,2,79,18,24:PEN 0:PEN#1,1:PE 
N#2 ,1:PEN#1,1:PAPER 1:PAPER#1,0:PAPER#2,0: 
PAPER83,0:INK 0,0:INK 1,20:BORDER 13:CLS:C 
LS#1:CLS# 2:CLS#3 

60 PRINT TAB(19)"DIRECTORY PAGEMAKER VI.0 
by Ulli Reif"WINDOW SWAP 0,2 
70 'Formattierung feststellen und Direktor 
y ein1esen 

80 LOCATE 10,5:PRINT"Bitte die zu bearbeit 
ende Disk in A: einlegen ! ";CHR$(7) :CALL & 
BB06:CLS:!A 

90 IF PE E K(&A8AB)=0 THEN id=(PEEK(&BE51) A 
ND 2 40) + 1 ELSE id = PEEK(&A89F) 

100 IF id=1 THEN t r=1 ELSE IF id = &41 THEN 
t r = 2 ELSE tr = 0 
110 POKE &A101,t r 

120 FOR s=0 TO 3:POKE &A102,1d+s:POKE &A10 
3,0:POKE &A104,&90+s*2:CALL &A007:NEXT 
130 'freie Eintraege suchen 

140 DIM f(63):f=0:FOR a=&9000 TO &97EO STE 
P 32:IF PEEK(a)=229 THEN f(f)=(a-&9000)/32 
: f = f+l 

150 NEXT:sp=f*8:esp=7:espa=l 
160 LOCATE#3,20,2:PRINT#3,"freie Eintraege 
:":LOCATE#3,16,4:PRINT#3,"Insgesamt noch 
frei : Zeichen":LOCATE#3,8,6:PRINT#3, " 

in diesem Eintrag noch frei : und Ze 

1 chen":GOSUB 680 
170 IF f<l THEN 650 

180 'Parameter abfragen 

190 t$ ="In welchem USER soll das Directory 
erstellt werden GOSUB 660 
200 INPUT u:IF u < 0 OR u>255 THEN 190 
210 t$="We1 eher MODE <0/l/2> soll aktivier 
t werden ?":GOSUB 660:G0SUB 670 
220 IF ASC(i$)< 48 OR ASC(i$)>50 THEN 210 E 
LSE e$=CHR$(0)+CHR$(4)+CHR$(ASC(i$)-48):mo 
= ASC(i$)- 48:GOSUB 690 

230 t$="Wollen Sie die BORDER-Farbe veraen 
dern ? C J/N > " :GOSUB 660:GOSUB 670 
240 IF i$="N" THEN 290 ELSE IF i$<> " J" THE 
N 230 

250 t$="Bitte BORDER-Farbe(n) eintippen il 
[ i2) :":GOSUB 660 : INPUTi$:IF 1$="" THE 
N 230 

260 GOSUB 780:IF n THEN GOSUB 760:i=w:G0SU 
B 7 70:j =w ELSE i=VAL(i$) :j = i 

2 70 IF 1<0 OR i > 2 6 OR jCO OR j>26 THEN 250 
280 e$=CHR$(29)+CHR$(1)+CHR$(j):GOSUB 690 
290 t$="Wo 11en Sie die PAPER-Farbe aendern 

? < J/N > " :GOSUB 660:GOSUB 670:IF i$ = "N TH 
EN 330 ELSE IF 1$<>"J” THEN 290 
300 t$="Bitte PAPER-Farbe eintippen 1 :":G 

OSUB 660:INPUT"",i$:IF i$="" THEN 290 
310 i=VAL(1 $) :IF i<0 OR i >15 THEN 300 
320 e$=CHR$(14)+CHR$(i):GOSUB 690 
330 t$="Wollen sie INKs veraendern ? <J/N> 
":GOSUB 660:GOSUB 670 

340 IF 1$="N" THEN 400 ELSE IF i$<>"J" THE 
N 330 

Listing Pagemaker 


[1165] 
[3756] 

[6316] 


[711] 

[12048 ] 


[4216] 
[5084] 
[6335] 

[4388] 

[2651] 

[410] 
[3821] 

[ 1324] 
[ 4661 ] 


[1977] 

[ 12509 ] 


[954] 

[ 1592 ] 
[4164] 

[ 937 ] 
[5703] 

[6568] 


[4956] 
[1661] 
[7118] 


[4096] 

[2163] 
[ 19 39 ] 
[6751] 


[7316] 

[2163] 
[1088] 
[5239] 

[ 1701 ] 


Wollen Sie keine weitere Testzeile eingeben und die erstellte 
Seite abspeichern, so geben Sie bitte erneut beliebige PEN- 
und LOCATE-Parameter, allerdings keinen Text ein. Wird 
ein “leerer“ Text übergeben, so verzweigt das Programm 
zum Abspeichern. Wollen Sie Cursorposition oder PEN- 
Farbe verändern, so beginnen Sie bitte eine neue Textzeile. 
Und nun wünschen wir Ihnen viel Spaß mit “Pagemaker“. 

(Ulli Reif/cd) 


350 t$="Bitte INK-Nummer und Farbwert(e) e [8012] 
intippen i il[ 12] :":GOSUB 660:INPUT"",1 
$:IF i$= THEN 330 

360 GOSUB 780:IF n THEN GOSUB 760:i=w:i$=R [5859] 
IGHT$(1$,LEN(1 $)— n):GOSUB 780 ELSE 350 
370 IF n THEN GOSUB 760:j=w:GOSUB 770:k=w [2508] 

ELSE j=VAL(i$):k=j 

380 IF 1<0 OR i>15 OR jCO OR j>26 OR k<0 0 [2596] 
R k > 2 6 THEN 350 

390 e$-CHR$(28)+CHR$(i )+CHR$(j )+CHR$(k) :GO [ 2963] 
SUB 690:GOTO 330 

400 t$="Bitte PEN-Nummer eintippen i :":GO [4651] 
SUB 660:INPUT"",i$:IF i$=“" THEN 400 
410 i=VAL(i$):IF ICO OR i>15 THEN 400 [2125] 

420 t$="Bitte LOCATE-Parameter eintippen x [6005] 
y : ":GOSUB 660:INPUTi$:IF i$="" THEN 

420 

430 GOSUB 780:IF n THEN GOSUB 760:x=w:GOSU [3390] 
B 770:y=w ELSE 420 

440 IF xCl OR x >20*2~mo OR yCl OR y>25 THE [ 1743] 
N 420 


450 'Text abfragen [790] 

460 IF s p C 5 THEN 610 ELSE t$="":CLS:PRI NT: [4484] 
PRINT” Bitte Text eingeben" 

470 LOCATE 2,4;PRINT t$;" " [1580] 

480 1$=INKEY$:IF i$="" THEN 480 [1332] 

490 IF i$=CHR$(13) THEN 540 [1448] 

500 ’Delete gedrueckt [1164] 

510 IF i$=CHR$(127) THEN IF LEN(t$)>0 THEN [7376] 
t$=LEFT$(t$,LEN(t$)-l): sp=s 

p+l+SGN(((LEN(t$)+2)MOO 3)AND 2)*5:GOSUB 6 
80:GOTO 470 ELSE 470 

520 IF s p C 5 THEN PRINT CHR$(7):GOTO 480 [ 2225 ] 

530 t$=t$+i$:sp=sp-l-((SGN((LEN(t$)-1) MOD [4734] 
3))XOR 1)*5:GOSUB 680:GOTO 470 
540 IF t$="" THEN GOSUB 720:GOTO 610 [1449] 

550 'Text zum einschreiben [2449] 

560 FOR z=l TO LEN(t$) STEP 3 [1671] 

570 IF x > 20* 2'mo THEN x = x-20* 2'mo:y = y+ 1 [ 2596 ] 

580 e$=CHR$(31)+CHR$( x )+CHR$(y)+CHR$(15)+C [2849] 
HR$(i )+MID$(t$,z,3) :x= x+ 3:GOSUB 690 
590 NEXT [350] 


600 IF s p > 5 THEN 400 ELSE IF sp>3 THEN 420 [ 1623] 
610 CLS:t$="Erste11te Direkto r y-Page abspe [6896] 
ichern ? CJ/N>":G0SUB 660:GOSUB 670 

620 IF i$=”N" THEN RUN 50 ELSE IF 1$C>"J" [3467] 

THEN 610 

630 FOR s = 0 TO 3 : POKE 8. A 102 , i d + s : PO K E &A10 [3670] 
3,0:POKE &A104,&90+s*2:CALL &A01C:NEXT 
640 RUN 50 [277] 

650 t$="Di rektory voll ! -.GOSUB 660:FOR w= [ 6063] 
1 TO 200:CA LL &8D19:NEXT:GOTO 610 

660 CLS:LOCATE 39-LEN(t$)\2,5:PRINT t$;:RE [2460] 
TURN 

670 i$=INK EY$:IF 1$="" THEN 670 ELSE i$=UP [2717] 
PER$(i$ ) :RETURN 

680 LOCATE#3,39,2:PRINT#3,USING"##";f-n:LO [9460] 
CATE#3,38,4:PRINT#3,USING"###";sp:LOCATE#3 
,39,6:PRINT#3,esp:LOCATE#3,45,6:PRINT#3,es 
pa:RETURN 

690 IF esp c LEN(e$) AND espaCLEN(e$) THEN G [3319] 
OSUB 720 

700 s$=s$+e$:e$="":esp=8-LEN(s$):IF esp>l [4902] 
THEN espa=l:esp=esp-l ELSE espa=esp:esp=0 
710 sp=(f-n-1)*8+esp+espa:GOTO 680 [1837] 

720 s$=s$+STRING$(8-LEN(s$),32) [1719] 

730 s$=CHR$(u)+CHR$(6)+LEFT$(s$,7)+CHR$(8) [3088] 
+ RIGHT $(s$, 1 ) +CHR$(21) 

740 FOR b=1 TO 12:POKE &8FFF+f(n)* 32+ b,ASC [5186] 
(MID$(s$,b,l)):NEXT:POKE &900F+f(n)*32,0 
750 n=n+l:esp=7:espa=l:s$="":sp=(f-n)*8:GO [3384] 
SUB 680:RETURN 

760 w = V A L(LEFT$(1 $,n-1)) :RETURN [ 1867 ] 

770 w=VAL(RIGHT$(i$,LEN(i$)-n)):RETURN [2862] 

780 n = INSTR(i$, ") :RETURN [ 983 ] 

Listing Pagemaker 
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Schneller schreiben 
mit LocoScript 

Wie man die Menüsteuerung überlistet 

Wer mit LocoScript arbeitet, hat als Anfänger einen unschlagbaren Vorteil: 
Über die Menüsteuerung zeigt der PCW alles an, was zu tun und auszuwäh¬ 
len ist. Das bewährt sich, solange man nicht mit LocoScript 2 arbeitet und 
keine größeren Textmengen zu bewältigen hat. 


Handelt es sich um Dissertationen oder 
andere fachspezifische Texte, so kann 
die Verwendung von Texteditoren 
enorme Zeit beanspruchen. Die Zu¬ 
griffszeit auf eine Funktion braucht 
wegen der Menüsteuerung doch einige 
Zeit. Zum Beispiel die Funktion halb¬ 
zeilig, 15-Zoll-Schrift, tiefgesetzt mit 
sieben Zeilen pro Zoll: Da sind 28mal 
Tasten zu drücken. Nur um allein Fett¬ 
schrift einzustellen, müssen nach Me¬ 
nüsteuerung fünfmal Tasten gedrückt 
werden. Man wird schnell einsehen, 
daß die Menüsteuerung auf Dauer lä¬ 
stig und nervenaufreibend sein kann. 
Aber wie kann man mit nur zwei Ta¬ 
stendrücken jede beliebige Funktion 
abrufen und dabei auch verschiedene 
kombinierte Texteditoren aus verschie¬ 
denen Menüs gleichzeitig abrufen? 

Die Lösung 

Es gibt eine Lösung: Wer den Inhalt 
der Programmdisketten schon einmal 
genauer gesichtet hat, der weiß, was 
sich hinter der Datei <SAETZE. 
STD> verbirgt: Floskeln und Rede¬ 
wendungen, die fest installiert sind und 
nach Bedarf mit der <EINBL>- 
Funktion und einem Buchstaben von a 
bis z (ohne ß, Umlaute und die Zahlen 
0..9) in den Text eingefügt werden 
können. So eine Installierung von 
Phrasen oder Redewendungen lohnt 
sich allerdings nur für notorische Brie¬ 
feschreiber, die zwischen “Sehr geehr¬ 
te Damen und Herren <“ und “Mit 
freundlichen Grüßen < “ nur zwei Sät¬ 
ze mitzuteilen haben. 

Für unser Problem ist die < SAETZE. 
STD >-Datei die Lösung. Denn statt 
der Redewendungen lassen sich hier 
auch Texteditoren abspeichem. So 
können wir SoftTrenn (der Trennungs¬ 


strich, der beim Umbruch nur am Zei¬ 
lenende hervortritt), auf der Taste a ab¬ 
speichem. Dazu brauchen wir einen 
Text oder eine Datei, in der über die 
Menüsteuerung eingefügt alle Textedi¬ 
toren, die wir ständig gebrauchen, ein¬ 
schließlich der verschiedenen Kombi¬ 
nationen und der häufiger verwendeten 
Layouts, vorhanden sind. Diese Datei 
wird auf Laufwerk M kopiert. Mit f8, 
(LocoScript 1: fl) [ + ] und <EN¬ 
TER > werden die Codes auf dem 
Bildschirm sichtbar. Ein Beispiel: Im 
Text wird das Zeichen (-) für Soft¬ 
Trenn gesucht. Der Cursor wird auf 
die erste Klammer gesetzt, dann wird 
<COPY > gedrückt, der Cursor wird 
nach rechts bewegt, bis er hinter der 
zweiten Klammer steht, dann wird 
noch einmal < COPY > gedrückt und 
anschließend der Buchstabe a. Soft¬ 
Trenn (-) ist in die < SAET¬ 
ZE.STD >-Datei aufgenommen. Ent- 


a 

3 

( -1 


b 


(+Hoch11+ZlAbst1 


c. 

= 

l+ZlAbst1/2) 


d 

= 

( tZeichZPSD) ( +Fi?11 1 


e 

= 

l+ZeilZ7l/21 


f 

= 

(-Fett)(ZeichZPS) 


9 

= 

1+ZeilZS) 


h 

= 

<Hard Scace: LUcke. 

cein Umbruch) 

i 

= 

(Layout:) <DIN A 5 - 

F ormat > 

j 

= 

(ZeichZIZ) 


k 

= 

(+Tief) 


1 

= 

(-Tief ) 


m 

= 

(LZeile) 


n 

= 

(-Hoch)(+ZlAbst11 


o 

= 

(SeitenZ) 


D 

= 

(ZeichZPS) 


Q 

= 

1 +Fet t) 


r 

= 

l+ZetLZ6) 


s 

= 

(_1 (Soft -Space) 


t 

= 

!*ZeiLZ8) 


u 

= 

(Layout) <DIN A4- 

Format > 

V 

- 

f +Z1Abst1 l 


w 

= 

(-Fett) 


X 

= 

(-Kursiv) 


y 

r- 

( +Kui ’si v) 


2 

= 

(ZentR i 



Abbl: Beispiel einer Belegung der 
SAETZE. STD-Datei für LocoScript 2 


sprechend wird mit den anderen Text¬ 
editoren verfahren. Auf y und x wird 
plus und minus kursiv gelegt, auf q und 
w plus und minus fett und so fort, bis 
die ganze Tastatur von a bis z belegt ist. 
Ist auf diese Weise eine < SAETZE. 
STD > -Datei mit Texteditoren erstellt, 
so wird diese mit der Funktion fl auf 
der Kopie der Programmdiskette 
(Startdiskette) abgespeichert. Dazu 
verläßt man den Textbearbeitungsmo¬ 
dus und ruft die Diskverwaltung auf. 
Mit fl und Cursor auf Sätze speichern 
und < ENTER > die < SAETZE. 
STD > -Datei auf Laufwerk M abspei¬ 
chern. Anschließend die Datei auf die 
Startdiskette kopieren, wobei die alte 
gelöscht wird, falls man ihr vorher kei¬ 
nen anderen Namen gibt (oder sie in 
eine andere Gruppe verschiebt). (Lo¬ 
coScript 1: f8 und Cursor im Bearbei¬ 
tungsmodus auf Alle Sätze abspei¬ 
chern, die Datei befindet sich auf Lauf¬ 
werk M, den Bearbeitungsmodus ver¬ 
lassen und die < SAETZE.STD >- 
Datei von Laufwerk M in die Gruppe 0 
der Startdiskette kopieren.) 

Vorteile 

Der Vorteil dieses Verfahrens: Nach 
einer kurzen Eingewöhnungszeit kann 
fast ganz auf die Menüsteuerung ver¬ 
zichtet werden. Alle Funktionen (Auch 
Kombinationen von verschiedenen 
Funktionen und Layouts können unter 
einem Buchstaben gespeichert wer¬ 
den!) können mit zwei Tastendrücken 
in den Text eingefügt werden: 
<E1NBL> und den betreffenden 
Buchstaben. 

Wird LocoScript am nächsten Tag neu 
gestartet, so wird auch gleich die neue 
< SAETZE.STD >-Datei mitgeladen. 
Sie braucht, einmal auf die Startdisket¬ 
te kopiert, nicht immer wieder neu ge¬ 
laden zu werden. Selbstverständlich 
kann diese Datei immer wieder verän¬ 
dert werden. Jeder muß selber sehen, 
welche Texteditoren er am häufigsten 
benötigt, und sich diese auf die am 
schnellsten zu erreichenden Buchsta¬ 
ben legen. Wer viel mit SoftTrenn (-) 
arbeitet und mit zwei Fingern schreibt, 
sollte sich () auf den Buchstaben a le¬ 
gen . Wer mit (+ fett) und (- fett) häufi¬ 
ger arbeitet, kann diese auf q und w le¬ 
gen. Aber da muß jeder Zusehen, wie 
es am angenehmsten ist. 

(Eckhard Etzold/rs) 
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ID-Scanner 

Der Diskette auf die Spur gekommen 

Wenn es darum geht, eine geschützte Diskette für den Eigenbedarf zu ko¬ 
pieren, gibt es immer wieder Tracks, die auch mit Diskettenmonitoren (z.B. 
DU.COM aus der Public Domain) nicht zu lesen sind. Das vorliegende Pro¬ 
gramm gibt Auskünfte über den bestehenden Kopierschutz. 


Nach Eingabe von RUN“1D“ unter 
BASIC fragt das Programm nach dem 
Track, der getestet werden soll. Sinn¬ 
voll sind hier nur Eingaben von 0 bis 
42. Nach RETURN beginnt die Test¬ 
phase (etwa 10 bis 20 Sekunden). Ist 
der Test abgeschlossen, werden die 
Sektornummern in aufsteigender Rei¬ 
henfolge ausgegeben. Dabei sind uns 
bisher folgende Versionen bekannt: 

1) Sektoren 1..9: Diese Tracks können 
gelesen, beschrieben und mit Disckit ko¬ 
piert werden (normales Joyce-Format). 


2) Sektoren 65..73 (System) und Sek¬ 
toren 193..201 (Data): Joyce erkennt 
dieses Format. Tracks können gelesen 
und beschrieben werden, Disckit ver¬ 
weigert jedoch eine Kopie. 

3) Beliebige Sektorenfolge: Diese 
Tracks sind nur nach Änderung des 
XDPB (eXtended Disk Parameter 
Block) z.B. mit Login aus dem Joyce- 
Sonderheft Nr. 1 lesbar. 

4) Beliebige Sektorenfolge und falsche 
Tracknummer, das heißt, zum Beispiel 
der logische Track 1 hat die Nummer 0. 


Bei 2)..4) muß auf der Kopie entspre¬ 
chend formatiert werden (z.B. mit 
XFORMAT aus PC International 
7/87), da die Tracks (mit Füllbyte!) ab¬ 
gefragt werden. Ist der Track nicht ent¬ 
sprechend formatiert, wird die Kopie 
als solche erkannt und das jeweilige 
Programm abgebrochen (This Disk is 
an illegal COPY !). Mit den erhaltenen 
Informationen und den entsprechenden 
Hilfsprogrammen ist nun keine Disket¬ 
te mehr vor Ihnen sicher. 

(Ralf Thelen/rs) 


Dieses Programm ist in BASIC geschrieben. Nach dem 
Eingehen sollte es zuerst mit SAVE“ID.BAS" <RE¬ 
TURN > abgespeichert werden. Später kann es dann 
unter Mallard-BASIC mit RUN"ID. BAS" < RE¬ 
TURN> und unter CP/M Plus mit BASIC ID. BAS 
< RETURN > wieder gestartet werden. 

Achtung!!! 

Mit dem Programm ID. BAS gewonnene Informationen 
dürfen nur zum Erstellen einer Sicherheitskopie für den 
Eigenbedarf verwendet werden. Sollten Sie diese Ko¬ 
pien weitergehen, machen Sie sich strafltar. 


LISTING >ID <, REMARK = >'<. 

< 89 > 10 DIM T racK(8),Sec(8) 

< 80 > 20 GOSUB 390 

< 3> 30 ' 

< 2 > 40 PRINT CHR$ ( 2 7 ) + " E " fCHR$ ( 2 7 ) + " H " 

< 3> 50 INPUT "Track Nummer angeben ";A* 

< 88 > 60 PRINT "Beginne Test.. Bitte warten !":PRINT:PRI 

NT 

<91> 70 PRINT 

< 5 > 80 POKE &HF0A1.A* 

< 38 > 85 CALL id:x = PEEK(&HFFE1) 

< 73 > 86 IF x < > 0 THEN 375 

< 9> 90 ’ 

< 34> 100 FOR i=0 TO 0 . Sek(1)=0 : Track(i)=0 : NEXT 1 

< 68 > 110 FOR q = 0 TO 200 

< 7 5 > 120 PRINT 

< 8 7 > 130 FOR b = 0 TO q:NEXT b : ' Variable Zeitschleife 

< 75 > 140 CALL id 

< 4 > 150 x=PEEK(&HFFE6) 

< 33 > 160 FOR w=0 TO 8 

< 25 > 170 IF x = Se k(w) THEN GOTO 200 

< 74 > 180 IF xOSek(w) AND Sek(w)=0 THEN Sek(w)=x : Trac 

k(w)=PEEK(&HFFE4) : GOTO 200 

< 45 > 190 NEXT w 

< 49 > 200 f1ag = 0 

< 91> 210 FOR y = 0 TO 8 

< 61 > 220 IF Se k(y ) =0 THEN flag=flag+l 

< 54 > 230 NEXT y 

< 59 > 240 IF f1ag = 0 THEN GOTO 270 

< 7 7 > 250 NEXT q 


< 64 > 260 PRINT "Nicht alle Sektoren gefunden !":PRINT:G 

OTO 280 

< 8> 270 PRINT" Suche erfolgreich !":PRINT 

< 9 2_> 280 FOR i=8 TO 1 STEP -1 

< 25 > 290 FOR j = l TO 1 

< 9 7 > 300 IF Sek(j-1)>Sek(J) THEN SWAP Sek(j-1) ,Sek(j ) :S 

WAP Track(j-l),Track(j) 

< 61> 310 NEXT j ,i 

< 39 > 320 PRINT:PRINT:PRINT" Aufteilung Sektoren in Trac 

k Nr."; A% : PRINT 

< 8 3 > 330 FOR r = 0 TO 8 

<19> 340 PRINT "Sektornummer ";r+lj" = ";Sek(r);". Trac 
knummer ";Track(r) 

< 88 > 350 NEXT r 

< 5 6 > 360 PRINT:PRINT:PRINT:PRINT" Noch ein Test?. —> R 

ETURN";:INPUT dum 

< 5 6 > 370 GOTO 40 

< 38 > 375 PRINT:PRINT:PRINT" Track ";AX;" Ist nicht form 

atiert ! " 

<13 > 376 GOTO 360 

< 36 > 380 • 

<15 > 390 MEMORY &HDFFF ; RESTORE 440: 1d = 4HFOOO 

< 45 > 400 FOR i% = 0 TO 26 

< 93 > 410 READ x : POKE id+iX,x 

< 4 > 420 NEXT iX 

< 76 > 430 RETURN 

< 64 > 440 DATA &H3E , &H00 .&HDD . 8.H2 1,4H00,8.HF 1 , &HCD . &H5 A . & 

HFC,&H95,&H00 

< 4 1 > 450 DATA &H0E . &H00 , &H3A . 1H A1 , 8.HF0 ,&H5 7 ,&HDD . &H2 1 , & 

H00.&HF1 

< 2 7 > 460 DATA &HCD . &H5A , &HFC , &H98,8.H00 . &HC9 


Listlng ID-Scanner 


Listing ID-Scanner 


Ist Ihr Programm der HIT ? 

Der DMV Verlag sucht ständig 
nach neuer, interessanter 
Software zur Aufnahme in 
unser Softwaresortiment. 

Dabei ist es einerlei, ob Sie nun 
ein Anwendungs- oder ein 
Spielprogramm geschrieben haben. 

Der DMV Verlag bietet Ihnen sein 
Software-Know-How an! 


Pio-VMiqn & Pto-ßoortct j 


PRO DESIGN eröffnet Ihnen die faszinierende Welt des Grafik-Designs. Im Hand¬ 
umdrehen erstellen Sie professionelle Grafiken für alle Bereiche. Software vom 
Feinsten für CPC 464/664/6128. 

— Ausführliches deutsches Handbuch im stabilen DIN-A5-Ordner 

— 10 tolle Schriften * CPC-Zeichensatz * Rahmen " Schmucklinien * Piktogramme 

— Desktop-Steuerung mit selektiven Disketten-Katalogen (superkomfortabel) 

— Bis zu 16 Druckformate /144 Ausgabeformulare 

— Kostenloser Drucker-Anpassungs-Service 

— Viele Zusatzschriften auf Erweiterungsdisketten 

— Hervorragendes Echo in der Fachpresse (z.B. Amstrad International 10/88) 

— PRO-DESIGN 2.0 3' -Diskette * Handbuch für nur 64,99 DM 

— PRO-BOOSTER, die Superergänzung zu Pro-Design: 

— Postereditor zur Erstellung bis zu 80 (achtzigl) Seiten langer Schriftbänder 

— Snapshot-Utlllty. Dokumenten-Druckprogramm (u.a. 24-Nafel-Treiber) 

— PRO-BOOSTER, 3"-Diskette ’ Anleitung für nur 34,95 DM 

Versand gegen Vorauskasae (frei) oder Nachnahme (+ 6,- DM) * Händleranfragen angenehm 



— KOSTENLOSES INFO - 

Axel Weber, Postfach 260154, D 5600 Wuppertal 26 

Crusaöer Software 
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Logo zeigt, 

was die Uhr geschlagen hat! 

Das braucht nicht nur wörtlich genommen zu werden. Mit dem nachstehen¬ 
den Listing soll diese Sprache beweisen, was sie kann oder besser, was sich 
mit ihr wesentlich einfacher realisieren läßt als mit anderen Sprachen. 


Um zu zeigen, was es geschlagen hat, 
sollte man schon auf eine Uhr zeigen 
können, und die besteht nun mal aus ei¬ 
nem zumeist kreisrunden Zifferblatt. 
Für das kreisrunde ist in den nachste¬ 
henden Listings die Prozedur “Kreis“ 
zuständig. Über den Radius wird nach 
altbekannter Formel 2*PI*r der Um¬ 
fang errechnet. Dieser wird wie auch 
die volle 360 Grad-Drehung durch 100 
geteilt. Die Turtle braucht dann nur 
noch den Radius nach oben zu gehen, 
sich nach rechts (92 Grad) zu drehen 
und 100 mal mit jeweils einem Hun¬ 
dertstel Schritt des Umfangs, gefolgt 
von einer Hundertstel Drehung von 
360 Grad nach rechts, loszulaufen. 
Diese Kreisprozedur wird in die Ziffer¬ 
prozedur eingebaut, weshalb man auch 
beide beim Aufruf im Arbeitsspeicher 
haben sollte. Das Listing zum Ziffer¬ 
blatt erklärt sich fast von selbst. Der 
“Backslash“ vor und hinter WK Findet 
sich bei der richtigen Tastenbelegung 
unter Logo (keys.drl) auf f3/f4 und be¬ 
wirkt, daß die Leerstelle, die auf den 
Backslash folgt, auch tatsächlich auf 
den Monitor ausgegeben wird. Optisch 
ist das bei der Aufmachung der Uhr zu 


bevorzugen, da die Leerstelle invers 
auf dem Monitor erscheint. 

Hat man Kreis- und Zifferlisting im 
Arbeitsspeicher Logos, kann das Zif¬ 
ferblatt mit: 

Ziffer 

aufgerufen werden. Das entstandene 
Bild muß nach der Fertigstellung mit 

savepic "Ziffer 

als Bild auf Diskette abgespeichert 
werden. Das nachstehende Listing 
braucht dann nicht jedes Bild neu zu er¬ 
rechnen und kann sich, was wesentlich 
schneller geht, das Zifferblatt komplett 
von der Diskette holen. Die Initialisie¬ 
rungsteile sind die Listings “uhr“ und 
“weck“. In ihnen werden die Parame¬ 
ter zum Stellen der Alarm- und Uhrzeit 
gesammelt, und an “std“ weitergege¬ 
ben. Bevor man sie editiert, sollte der 
Arbeitsspeicher leer sein, denn “std“ 
muß auch noch hineinpassen. Diese 
drei Listings werden nämlich zusam¬ 
men unter dem Namen “uhr“ auf Dis¬ 
kette abgespeichert. Vor dem Sichern 
sollte man “weck“ auch nicht auspro¬ 
bieren, denn nach Erledigung seiner 
Aufgaben löscht es sowohl sich selbst, 


als auch die Prozedur “uhr“ aus dem 
Arbeitsspeicher. Nach dem Aufruf des 
Zifferbildes und der Übergabe der Va¬ 
riablen an “std“ haben sie auch keine 
Funktion mehr zu erfüllen und würden 
lediglich unnötig den Arbeitsspeicher 
belegen. Die Prozedur “std“ ist der ei¬ 
gentliche Motor des Ganzen. Hier wer¬ 
den die Zeigerstellungen der Uhr in 
Grad umgerechnet und die Zeiger mit 
“seth“ auf die Grad eingestellt. Eine 
Verflechtung von “px“, “pu“, “pd“, 
“pe“ und einige if-Abfragen gewähr¬ 
leisten, daß nur überholte Zeigerposi¬ 
tionen gelöscht werden. Jede Minute 
wird der Minutenzeiger um sechs Grad 
nach rechts bewegt, der Stundenzeiger 
wird, wenn der Minutenzeiger 72 Grad 
hinter sich hat, ebenfalls um sechs 
Grad nach rechts gedreht. Taktgeber 
des Ganzen ist der Sekundenzeiger. In 
der vorletzten Zeile des Listings findet 
sich der Befehl: 
repeat 238 ÄÜ. 

Nichts 238 Mal zu wiederholen, kostet 
Logo etwa eine Sekunde. Dieses dann 
58mal plus die Zeit zum Weiterrücken 
der anderen Zeiger macht die Minute 
aus. Will ein Anwender die Uhr so ge¬ 
nau stellen, daß sie auf zwölf Stunden 
keine Sekunde Abweichung hat, kann 
der Wert von 238 leicht manipuliert 
werden. Wurde alles auf Diskette ab¬ 
gespeichert, kann das Programm mit: 
load “uhr“ 

und nach der Meldung: 
std, uhr, weck defined 
mit dem Befehl “uhr“ aufgerufen wer¬ 
den. Die Diskette muß noch im Lauf¬ 
werk bleiben, bis das Zifferblatt ge¬ 
zeichnet wurde. Erst danach kann sie 
entnommen werden. 

Sollte also Joyce einmal untätig herum¬ 
stehen: Der Verschleiß am Gerät ist ge¬ 
ringer, wenn die Uhr läuft, als wenn es 
aus- und später wieder angestellt wird, 
und der Stromverbrauch ist so gering, 
daß er kaum zu Buche schlägt. Lassen 
Sie sich also ruhig von Logo auf dem 
Joyce das vertraute Zifferblatt (und 
was es geschlagen hat) zeigen. 

(Winfried Kersting/rs) 


Diese Programme sind in LOGO geschrieben. Das 
Eingeben sollte in zwei Teile aufgeteilt werden: 
Tippen Sie zuerst die Prozeduren std, idir und weck ein. 
Diese speichern Sie dann mit SA VE“uhr < RETURN> ab. 
Mit erall < RETURN> löschen Sie nun den Arbeits¬ 
speicher von DR. LOGO und geben nun die Prozedu¬ 
ren Ziffer und Kreis ein, welche mit SAVE "Ziffer " 

< RETURN > abgespeichert werden. Vor dem ersten 
Durchlauf editieren Sie nun mit ed “Ziffer " 

< RETURN > die Prozedur Ziffer, setzen den Cursor 
auf den Anfang der letzten Zeile und schreiben nun 
SAVEPIC “Ziffer“ <RETURN> <EX1T> Ziffer 

< RETURN >. Das Programm startet jetzt und spei¬ 
chert später das Bild ab. Load "uhr < RETURN> uhr 

< RETURN> startet nun das Programm. 
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L'sting 


UHR.LOG 


to std :s :e :v : w 

(local "b "c "ö "f "g "h "1) 

make "b ( :e * 6 > 

make "c :s * 30 + ((Int :b / 72> * 6) 
label "std 


setpos ÄO OÜ seth (:c - 6) 
pu fd 152 make "d (dotc tf) 
150 

if (:d + :f) > 0 Äpu f d 150 

seth :c pu fd 150 px bk 150 
label "min 

setpos ÄO OÜ seth :b - 6 
pu fd 152 make "h (dotc tf) 
154 

if (:h + :i) > 0 Äpu fd 179 
seth :b pu fd 179 px bk 179 
60 Ämake "b OÜ 
setpos ÄO OÜ seth 0 
if and (:c = :v) ((:b - 6) 
har 7ü fsü 


bk 2 make "f (dotc tf) bk 
px bk 150Ü 

fd 2 nrake " 1 (dotc tf) bk 
px bk 179Ü 

make "b (:b + 6) 1f :b = 3 
:w) Äts repeat 91 Ätype c 


repeat 58 Äpx fd 182 repeat 238 Äü bk 182 
1f remainder :b 72 = 0 Ämake "c :c + 6 if 
ke "c OÜ go "stdü go "min 


rt 6Ü 

: c = 360 Äma 


end 


to weck 

(local "J "v "w) 

type ÄBrauchen Sie eine Alarmfunktion? j / n :ü make " 
J < asc11 rq ) 

If :j = 110 Ämake "v -1 make ”w -1 go "endeü 

type ÄZu welcher Stunde (1 - 12) wollen Sie alamiert w 

erden:Ü make "v (rq * 30) 

type ÄZu welcher Minute (0 - 59) wollen Sie alamiert w 
erden:ü make "w (rq * 6) 

if :v = 360 Ämake "v OÜ if :w = 360 Ämake "w OÜ 
make "v (:v + ((int :w / 72) * 6) 
label "ende 
ct 

pr ÄWenn Sie jetzt eine Taste druecken, wird das Ziffe 
rnblatt gezeichnet und nach ca.ü 

pr Ä30 Sek. die Uhr gestartet. Sie kann mit der PTR - 
Taste angehalten werden. Mit EXITü 
pr Älaeuft sie dann weiter.ü 
pr ÄÜ 

pr ÄLiegen Stunden - und Minutenzeiger uebereinander, 
ist nur die Spitze des Minuten -Ü 
pr Äzeigers sichtbar.Ü 
pr ÄÜ 

pr ÄNach gefordertem Alarm erscheint ein "!" am linken 
Monitorrandü 

label "los if keyp Äer "uhr er "weck cs ct fs loadpic 

"Ziffer std :s :e :v :wü go "los 

end 

Listing ZIFFER.LOG 


to uhr 

type word char 27 "0 cs ht ct ts 
setcursor A19 6Ü 

type X* ******** LOGO - UHR ******** *0 

setcursor Ä29 9Ü 

type ÄVersuch einer DemonstrationÜ 
setcursor Ä31 llü 
type Äcopy r. W.Kersting Kielü 
setcursor ÄO 27ü 

type ÄAchtung! Oer Arbeitsspeicher Logo's darf nicht z 
u voll sein! Sonst erscheint: I'm outü 
setcursor ÄO 28Ü 

type Äof space. Nach dem Aufruf wird der Initialisieru 
ngstell automatisch ge 1oescht! ! ! Ü 
fs repeat 2000 Äü cs ct ts setcursor ÄO OÜ 
type ÄZu welcher Stunde (1 - 12) soll die Uhr starten? 
: ü 

local "s make "s rq if :s = 12 Ämake "s OÜ 

type ÄZu welcher Minute (0 - 59) soll die Uhr starten? 

: ü 


1 oca 1 


"e make "e rq ct setcursor ÄO OÜ 


weck 

end 


t o Ziffer 

type word char 27 "0 cs ct fs ht pu 

setpos ÄO OÜ pd Kreis 212 3etpos ÄO OÜ Kreis 210 setpo 
s ÄO ÖÜ Kreis 92 setpos ÄO OÜ Kreis 5 

repeat 12 Äpu fd 180 pd fd 30 pu setpos ÄO OÜ rt 6 rep 


eat 4 Äpu fd 195 pd fd 15 pu setpps 
setcursor Ä42 21Ü type ÄRoyceXÜ' 
setcursor Ä43 22Ü type word char 27 
ype word char 27 "q 
setcursor Ä44 25Ü type Ä6Ü 
setcursor Ä44 5Ü type Ä12Ü 
setcursor Ä23 15Ü type Ä9Ü 
setcursor Ä67 15Ü type Ä3Ü fs 
end 


ÄO 


ts 


OÜ pd rt 6ÜÜ 
type Äö WKÖ Ü t 


to Kreis :r 

(local "a "b) 

make "pi 3.14159265 

make "a (piece 1 2 tf) 

pu fd :r rt 92 pd 

make "b 2 » :pi * :r / 100 

repeat 100 Äfd :b rt 3.6Ü 

pu lt 92 setpos :a pd 

end 
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Hochstraße 11 
8500 Nürnberg 80 
Tel.: 0911 / 28 90 28 


COMPUTER: 

Joyce PCW 8256. kompl. Textayslem, neu, nur 
TOWER AT 201. mit Interleavo 1:1 Controller 
u. 40 MB NEC-Festplatte (Bench-Test: 18ms] 

PC 1640 SD/MD + 20MB Festpl. + Toxtprogramm 

PC XT/AT ZUBEHÖR: 

Mathe-Co-Prozessor 8087 8 MHz 

80287 10 MHZ 

RAM-Erweitorung PC 1512 auf 640 KB 
TOWER AT auf 1 MB 
Filecard auch für 1512:1640 20 MB 
30 MB 

Zwoitlaufwerk 1512/1640 5,25" 360 KB 
TOWER AT 3,5“ 720 KB 
Extornos Zwoltl. für TOWER AT 5.25" 1.2 M8 
Genius Mouse GM 6 Plus, dt Version 
6 GM 2000, dt. Version 

Super Mouse. 3 Tasten, MS-Mousu-kompatlbol 
Joystick, IBM-kompstibel 
Joystick-Karte, für 2 Joysticks 



798, - LC 10 

548,- 


LC 24-10 

898,- 


3498, - LQ 3500 

688,- 


2098,- DMP3160 

488- 

298. 

CPC-ZUBEHÖR: 

Laufwerk DDI-1 

448,- 

538,- 

Zweillaufwerk FO-1 

269,- 

128,- 

Serielle Schnittstelle 

179.- 

298, 

BTX-Modul 

349,- 

598.- 

698,- 

CPC/JOYCE-ZUBEHÖR 


198,- 

Mouse-Pack 

149,- 

298- 

Maxell 3“Disk, 10 St. 

59,- 

358.- 

NEVADA Fortran |dt,| 

98.- 

84.- 

NEVADA Cobol (dt l 

98.- 


68,- 

JOYCE-ZUBEHÖR: 


24,90 

Serielle Schnittstelle 

179.- 

34,90 

RAM-Erweiterung 

139,- 


Wir führen zu den Original SCHNEIDER-Produlder Artikel verechledener Firmen wie VORTEX, STAR DIVISION, 
DATA BECKER, PROFISOFT, ARIOLA. RUSHVARE, MARKT & TECHNIK, SYBEX, GFA, GERDES, STAR, 
SCHNEIDER-DATA, ABO. SOFTMAKER usw.l 


BRANDHEISSE KNÜLLERPREISE 


Schneid«» 

Target PC 7640 (Portable ATI 
Towor AT 220 mit Monitor MM 12 

mit Colormonitor CM 14 
mit EGA-Monitor EM 14 
Tower AT 260 mit EGA-Monitor EM 14 

mit MuHfecan-Mo«i. MS 14 
20 MB-Fllocerd (Seagate, 40 m# Zugriff»- 
zort. oinbou- und anochlußfortlg für an« 

PC 1512 und PC 16*10) 

30 MBFIIecard (Soagsift 40 ms) 

30 MB-Filocord (Weitem Digital,65 ms) 

Am*tr»d 

PC 1640 mit 2 LW *- Filternd 20 MB 

Monochrommorotor 2299- 

Colormonitor 2649, - 

EGA-Monitor 3099,- 

PC 2086 SD 12 MD 2099.-: SD 14 CD 

SD12MRCD 2949,-: SD 14 HRCD 

PC 2006 DD 12 HRCD 334& - : DD 14 HRCD 
PC 2086 HD 12 MD 314*HD 14 CD 

HD 12 HRCD 3949,-i HD 14 HRCD 
Portabio Computor PPC 612 mit 2 Disketten¬ 
laufwerken 3,5' 

PC 1640 SO mit Schwarzweißmonltof 
mit Colormonitor 

PC 1640 DD mitSchwarwoißmomtor 
mit EGA-Monitor 

PC 1640 HD 20 mit Schwarrweißmonltoi 
mit EGA-Monitor 


4699, - 

3099, 

3499,- 

3799.- 

5299, 

5849. 


639.- 

799,- 

749 

30 MB 

2399 

2749- 

3199- 

2649- 

3299 - 


1649,- 
1499- 
1049 - 
1649 - 
2449, - 
2199 
2999- 


EGAMonilor für PC 1640 
EGA-Monitor * EGA-Karto für PC 1612 
Epsondrucker (dt. Handbücher, mit FTZ) 

Annchhz&fcrtig an AMIGA. Schneider PC odei 
CPC. Atari ST odor IBM-Kompntibl« 

LXB00 
FX 850 
10 500 
LQ2550 
LQ850 
LG 1060 

Stardrucker (dt Handbücher, mit FTZ) 

LC-10 mit Cornmodoro od. Centronics»*. 

LC-10 Calor Farbdrucker tmt Interface 
LC-24-10 mit Centronlcsinterfaco 
NEC-Drucker (dt Handbücher, mit FTZ| 

NEC P 2200 899 - : NEC P 7 Piu* 

NEC P fl Pkis 1449. - j Farboptlon 

Superfcnüller: 

Commodore AT PC 40-111 mit Monitor 
24-Nndaldr. LQ 3600 * Textverarbeitungsprooramm 
E|»on Timonatrnhldiucker IX 800 (240 Z/Sek.) 

Siemens BTX-Syatem T 3315 * 1B'*Fart>monitor 
Vbraandkostenpauschflle (Warenwert btf DM 1009 - ‘‘darüber»: 
Wirauake»» (DM ft - tfQ, - I. Nachnahme iDM 12,60.'24,60), Aus¬ 
land (DM 20. - /50. -). Lieferung nur gegen NN oder Vorauaks»*»; 
Ausland nur VOraunlusB«« 

Preisliste iComputeriyp angeben) oepen Zusendung «me» Frei- 
Umschlags. Pre-se gültig ab 12989 


499. 

1119 

869.- 

3099- 

1469 

1899- 

549. 

099 

079- 


749- 


CSV Riegert FAX(0 7i 61) i 35 87 

Schloßhofstr. 5, 7324 Rechberghausen, Tel. (0 71 61) 5 28 89 
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Gut gepackt mit STOREFILL 

Optimieren der Diskettenkapazität 
unter Mallard BASIC 

Diejenigen, die häufig Assembler-Programme oder Programm-Module ent¬ 
werfen oder anwenden, werden es sicherlich bedauern, daß diese meist kur¬ 
zen Dateien die Kapazität einer Diskette nur ungenügend ausnutzen kön¬ 
nen. Dies liegt zum einen daran, daß jede Diskette nur 64 Dateien (entries) 
zuläßt und zum anderen, daß selbst eine Datei von der - sicherlich über¬ 
triebenen - Kürze von einem Byte auf der Diskette 1024 Bytes = 8 Records 
= 1 kByte im wahrsten Sinne des Wortes blockiert. Für diese Fälle tut ein 
Programm zur Optimierung der Diskettenkapazität not. Allerdings aus¬ 
schließlich im Hinblick auf die Archivierung von Dateien. 


Das Programm STOREFIL.BAS er¬ 
zeugt zwei Dateien: 

- Eine Datei vom Typ .CAT, die den 
Archiv-Katalog enthält. Jeder Eintrag 
sieht so aus : 

. Byte 0 — High-Byte des letzten Re¬ 
cords der Datei im Archiv 
. Byte 1 — Das entsprechende Low- 
Byte 

. Bytes 2 bis 12 — Dateiname 
■ Bytes 13 bis 15 — Tag, Monat und 
Jahr der letzten Archivierung 

- Die eigentliche Archiv-Datei vom 
Typ . ARC. Sie enthält die entsprechen¬ 
den Dateien unmittelbar aneinanderge¬ 
fügt. 


Ein kleines Beispiel soll dies verdeutli¬ 
chen: Am 24.12.89 sollen folgende 
drei Dateien archiviert werden: 

— TEST. BAS, 9 Records = 2 kByte 

— TEST. TXT, 18 Records = 3 kByte 

— TEST. COM, 2 Records = I kByte 

Wenn das Archiv TEST.ARC heißt, 
sehen die Einträge in TEST.CAT fol¬ 
gendermaßen aus: 

09TEST BAS1F0C4E 

1BTEST TXT1F0C4E 

1DTEST COM1FOC4E 

In diesem Beispiel sind die drei Dateien 
von 6 kByte auf (TEST.CAT = 1 kBy¬ 
te, TEST.ARC = 4 kByte) 5 kByte 


komprimiert worden. Wird zum Bei¬ 
spiel die Seite zwei der Systemdisket¬ 
ten mit STOREFIL archiviert, so erhält 
man 5 kByte freien Diskettenplatz! 

Programmablauf 

Sobald das Programm gestartet wurde, 
verlangte es die Eingabe des Datums. 
Ist diese erfolgt, springt das Programm 
in das Hauptmenü, welches folgende 
Optionen zur Verfügung stellt: 

(E) = Archiv erstellen 
Ein neues Archiv wird mit der Option 
E erstellt. Das Archiv wird im Lauf¬ 
werk M angelegt. Nach der Eingabe 
des gewünschten Archiv-Namens (zum 
Beispiel TEST) kann zwischen vier 
weiteren Optionen gewählt werden: 

(N)eue Diskette. 

Zur Erleichterung wird das Directory 
der eingelegten Diskette ausgegeben. 

(D)ateinamen eingeben, wobei auch 
Wildcards (zum Beispiel *.BAS) zuläs¬ 
sig sind. Diese Option wird durch 
< RETURN > beendet. 

Während der Bearbeitung werden in 
der zweiten Menüzeile die Anzahl der 
Records mitgezählt und die bereits ins 
Archiv kopierten Dateien auf der unte¬ 
ren Hälfte des Bildschirms protokol¬ 
liert. 

Ende mit EXIT. 

Damit kehrt man ins Hauptmenü zur 
weiteren Bearbeitung (siehe unten) zu¬ 
rück. 

Abbruch mit STOP. 

Vor der Rückkehr ins Hauptmenü wird 
die angelegte Archiv-Datei wieder ge¬ 
löscht. 

(U) = Archiv-Datei umkopieren 
Das soeben erstellte Archiv 
TEST.ARC und die Katalog-Datei 
TEST.CAT werden auf das Laufwerk 
A kopiert. Dabei erinnert das Pro¬ 
gramm vorher daran, die Diskette ein¬ 
zulegen, auf der das Archiv abgelegt 
werden soll. Da mehrere Archive 
nacheinander mit Option E angelegt 
werden können, muß die entsprechen¬ 
de Frage des Programms nach der Ar¬ 
chiv-Datei beantwortet werden. 

(I) =Archiv-Informationen 
Die in TEST.CAT befindlichen Ar¬ 
chiv-Informationen Dateiname, Re¬ 
cords und Datum werden, nachdem das 
gewünschte Archiv mit <j> oder 
< RETURN > bestätigt wurde, auf 
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Abb. I: Eine Diskette im Archiv 


da es dabei keine Probleme gibt. Ein 
unvollständiges Kopieren einer Datei 
in ein Archiv kann nicht Vorkommen, 
weil jede Datei vor ihrer Übernahme in 
ein Archiv auf ihre Länge überprüft 
wird und das Programm das Kopieren 
gar nicht erst beginnt, falls die Länge 
der Datei plus der Länge des aktuellen 
Archivs > = 1380 ist. 

Variablenliste 


Einige Variablennamen sollten hier 
noch kurz erläutert werden: 

catbuff: Speicherbereich, der für die 
Katalogeinträge reserviert ist (ab 
&HF000). 


dem Monitor (<m> oder <RE¬ 
TURN >) oder auf dem Drucker aus¬ 
gegeben. 

(K)= Datei ins Archiv kopieren 
Mit dieser Option kann eine weitere 
Datei in ein bereits bestehendes Archiv 
kopiert werden. Dies läuft am Beispiel 
der Datei TEST.BAS in folgenden 
Schritten ab: 

— Einlegen der Diskette, auf der sich 
TEST. BAS befindet. 

— Eingabe von < TEST.BAS >. Diese 
Datei wird danach ins Laufwerk M ko¬ 
piert. 

ACHTUNG : Wildcards werden nicht 
akzeptiert! 

Gewünschte Archiv-Diskette einlegen. 

— Die Archiv-Datei (wie mit Opt. I) 
auswählen. 

Wenn sich TEST.BAS noch nicht im 
Archiv befindet, wird diese neue Datei 
als letzte an das Archiv angefügt und 
die Katalog-Datei entsprechend modi¬ 
fiziert. 

Ist TEST.BAS allerdings bereits im 
Archiv vorhanden, passiert dies: 

- Kopieren aller Records, die auf 
TEST.BAS im Archiv folgen auf eine 
Dummy-Datei M:DUMP.$$$. 

- Überschreiben von TEST.BAS im 
Archiv. 

- Anfügen von M:DUMP.$$$ an das 
so bearbeitete Archiv. 

Abhängig von der Position von TEST. 
BAS im Archiv kann diese Operation 
schon ein Weilchen dauern. 
Selbstverständlich spielt es dabei keine 
Rolle, ob die neue Version von 
TEST.BAS länger oder kürzer ist als 
sein Vorläufer. 


(H) = Datei zurückholen 
Diese Option ermöglicht nicht nur das 
Zurückholen einer Datei aus einem Ar¬ 
chiv, sondern auch das Löschen über¬ 
flüssig gewordener Dateien. Auch hier 
wird zunächst nach der gewünschten 
Datei gefragt. Danach gibt das Pro¬ 
gramm den Inhalt des gewählten Ar¬ 
chivs aus und fragt nach dem Dateina¬ 
men. Jetzt hat man die Möglichkeit, 
entweder eine Datei zurückzuladen 
oder zu löschen. Bei Eingabe von 

<h> oder <RETURN> 

wird diese Datei ins Laufwerk M ko¬ 
piert; bei <l> werden die Records 
dieser Datei mit dem Rest des Archivs 
überschrieben. 

Diese Option wird ebenfalls mit < RE¬ 
TURN > verlassen. 

Überladen verboten! 

Die maximale Anzahl der Records pro 
Archiv wurde auf 1380 voreingestellt, 


clearmem: Adresse eines kleinen MC- 
Programms, das 1 kByte ab &HF000 
löscht. 

lofil: Länge einer aktuellen Datei in 
Records. Sie wird durch ein MC-Pro- 
gramm (Start = &HEFB8) ermittelt. 

recl%: Anzahl der Records bis zum 
Ende der aktuellen Datei. 

rec2%: Anzahl der Records bis zum 
Ende der vorhergehenden Datei. 

records: Startadresse zur Berechnung 
der Recordlänge einer Datei. 

(Udo Rieger/rs) 


Dieses Programm ist in Mallard-BASIC geschrieben. 

Nach dem Eingeben sollte es zuerst mit SAVE 
“ STOREFILBAS" <RETURN> abgespeichen 
werden. 

Später kann es dann unter Mallard-BASIC mit 
RUN "STOREFILBAS " < RETURN > und unter 
CP/M Plus mit A > BASIC STOREFIL. BAS 
<RETURN> wieder gestartet werden. 

Wie immer können Sie die lauffähige Version dieses 
Programms der DATABOX entnehmen. 


Abb. 2: Di( Archivin¬ 
formation Von Store- 
fill. Neben der Anzei¬ 
ge der Dateinamen 
wird noch die Anzahl 
der Records und das 
Archivdatum ange¬ 
geben 
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SIOREFIL 
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») Infornationen ueber Archiv-Dateien <<< 


enthielt 1271 Records entspr. 153 kB ; 39 Datei (en) 


Date inane recs Datun Dateinane recs Datu* Dateinane recs Datu* 



2. 6.89 AHAKMII.INC 
2. 6.89 BLICKNAI.PAS 
2. 6.89 COCINK .PAS 
2. 6.89 CLEPOIHI.PAS 

S: eli DFFUHK ;{$ 
2. 6.89 DFHASCHO.INC 


'AN INC 
i\ e.39 winf m 

1 : 1:8 Ml 

2. 6.89 LINE .FAS 


Ittl.HlHÜW 


6 2 


6.89 

6.83 

6.89 

6.89 


6.89 

U 

6.89 
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LISTING > STÖR E F I L < , REMARK = >'<. 


< 5 5 > 

< 15> 

< 68 > 
<17> 

< 1> 

< 2 5 > 

< 20 > 
<62 > 
< 18 > 

< 2 3 > 

< 9 4 > 

< 46 > 

< 8 > 

<45> 

< 56 > 

< 3 > 

< 98 > 

< 4 6 > 

< 86 > 
< 86 > 

< 2 4 > 

< 1 > 

< 33 > 

< 54 > 

< 1 > 

< 69 > 

< 66 > 

< 73 > 

< 10 > 
< 12 > 

< 2 3 > 

< 13 > 

< 68 > 

< 3 7 > 

< 14> 

< 34> 

< 18 > 
< 28 > 
< 0> 

< 49 > 

<39 > 

< 7 4 > 
<81 > 

< 25 > 

< 4 > 

< 12 > 
< 80 > 

< 44 > 

< 5 5 > 
<43> 

<81 > 

< 89 > 

< 66 > 

< 85 > 

< 70 > 

< 63 > 

< 9 6 > 

< 2 5 > 
<49 > 

< 79 > 

< 49 > 

< 9 4 > 

< 63 > 

< 43> 

< 8 > 
< 1 > 
< 1 2 > 

< 71 > 

< 8 4 > 

< 63 > 

< 5 6 > 

< 84 > 

< 38 > 


10 REM **************************** 

20 REM ***. *** 

30 REM ***.. S T 0 R E F I L... *** 

40 REM ***. *** 

50 REM ***.. Verwaltung von.... *** 

60 REM ***. Archiven. *** 

70 REM ***. *** 

80 REM **************************** 

90 REM. - 

100 REM. I. Initialisierung. I 
110 REM - 

120 MEMORY &HEFB7:OPTION RUN:ON ERROR GOTO 3730 
130 DEF FN1 1ne$(clX, 1 X . c2% , C336 ) =CHR$ ( c 156 )+STRI NGS ( 
l%,c256 )+CHR$(c356 ) 

140 OEF FNfl1e$(lw$,arcdatS,ext$)=UPPER$(lw$ + arcda 
t$)+STRING$(8-LEN(arcdat$)," " ) + ext$ 

150 deline$=STRING$(84." "):DIM dat$t64):GOSUB 361 
0 : GOSUB 4010 

160 mess$(1)=CHR$(133> + 1nvon$ +STRING$(35 , " ")+invO 
ff$+".STOREFIL. " 

170 mess$(1)=mess$(1) + invon$ + 5TRING$(11 , " ")+lnvof 
f$+" U.Rieger. 3/89 "+1nvon$ 

180 messt(1)=mess$(1)+STRING$(5," ")+invoff$+CHR$( 


133) 

190 mess$(2) = " (E ) =Archiv-Datei erstellen " 

200 mess$(3)=" (K)=Datei Ins Archiv kopieren " 
210 mess$(4)=" (H)=Datei zurueckholen 
220 messt( 5 ) = " .. (U)=Arch1v-Date1 umkopieren.. 

230 messt( 6 ) = " (I)=Archiv-1nformationen " 

240 mess$ ( 7 ) = ". Ende mit EXIT. " 

250 mess$<8)=". Dateiname... recs.. Datum.. " 
260 REM - 


270 REM I. Bildschirmaufbau. I 

280 REM - 

290 PRINT stoff$;curoff$;homeS;cls$;esc$+"v" 

300 PRINT FNline$< 134,86, 1 38, 140) :PRINT mess$(l):P 
RINT FN1ine$( 131,86.138,137 ) 

310 PRINT FNsc$(8.25) ;FN1ine$( 134,40,138 , 140 ) : PRIN 
T FNsc$(9,25);FNline$(133,40,32,133) 

320 PRINT FNsc$(10,25);CHR$(133)+'. Heutiges Datum 

(tt.mm.Jj) ;. "+CHR$(133) 

330 PRINT FNsc$(11,25);FN11ne$(133,40,32.133):PRIN 
T FNsc$(12,25);FNlineS(131,40.138,137) 

340 PRINT FNscS(10,56);curonS;bel>$; 

350 REM - 

360 REM I. Oatumseingabe. I 

370 REM-- 

380 INPUT "",datum$ 

390 IF datum$="" THEN GOTO 640 

400 pos 116 = 1 NSTR (datumt ,"."): pos256 = INSTR ( pos 156+ 1 . da 
tum$,". " ) 

410 tt$=MI0$(datum$,1,po s1%-1):IF LEN<tt$)=l THEN 
tt$="0"+tt$ 

420 mm$ = MID$(datumt.posl**1,pos256-pos 1%-1) :IF L EN ( 
mm$)=l THEN mm$="0"+mm$ 

430 j j$=MID$(datum$,pos2X+l,LEN(datum$)) : IF LEN(j j 
$) = 1 THEN jj$="0"+jj$ 

440 PRINT FNsc$(2,5);" Datum ; "+ tt$+" . "+mm$+" .-19" 

+jj$+" " 

450 PRINT FNw$(8.0.21.88);erdownt;curoff$ 

460 PRINT FNw$<0,0,32,90) 

470 PRINT FNsc$(2,0);FN1ine$(135,86,138,141) 

480 PRINT CHR$(133)+". "mess$(2)imesst(3)+messt<4) 

+" "CHR$(133) 

490 PRINT FNlinett 135.86, 138,141 ) 

500 PRINT CHR$(133)+mess$(5)+mess$(6)+mess$<7)+CHR 
$(133) 

510 PRINT FNline$<131.86,138,137);bel1$ 

520 i nd 156 = 0 : ind2X=0: ind356 = 0 

530 REM - 

540 REM I. Hauptmenue. I 

550 REM - 

560 a$=INKEY$:IF a$="" THEN GOTO 560 

570 IF UPPERS(a$)="E" THEN GOTO 1540 

580 IF UPPERS(a$)="K" THEN GOTO 2470 

590 IF UPPERS(a$)="H" THEN GOTO 3100 

600 IF UPPERS(a$)="U" THEN GOTO 1380 

610 IF UPPERS(a$)="I" THEN GOTO 680 

620 IF a$=CHR$(27) OR a$=CHR$(3) THEN GOTO 640 

630 PRINT be11 $; :GOTO 560 

640 OPTION STOP:PRINT curOnS;stont:END 

650 REM - 

660 REM I. Archiv-Info. I 
670 REM- • - 

680 PRINT FNscS(4.3);del1ne$:PRINT FNsct(6,3);de 1i 
net 

690 PRINT cnsc$( 4,25 ) ;">>> Informationen ueber Are 
hlv-Dateien < < < " 

700 1w$=“A:" 

710 GOSUB 4200 

720 IF arcdatS( i 56 ) = " " THEN GOTO 460 

730 arcdat$=LEFT$(arcdat$( ' 56) ,8) : GOSUB 3960 


Listing Storefill 


< 86 > 740 OPEN "R" , 1 , 1 wS + arcdat$-t-" . cat ' : FI ELD 1,126 AS r 

eadrec$:CALL clearmem 

< 75 > 750 catbuff=&HF000:datei$=arcdat$+".cat":GOSUB 450 

0:1ocat=1o fi1 

< 7 > 760 FOR g56=l TO locat 

< 2 4 > 770. . GET l,g56 

< 2 3 > 780. . FOR f 56= 1 TO 128 

< 96 > 790.... byte$=MID$(readrecS,fX,1) 

< 2 > 800.... POKE catbuf f-tfX-1 , VAL ( "8.H“ + HEX$ (ASC ( by te$ ) 

) ) 

< 70 > 810. . NEXT 

< 1 3 > 820.. catbuf f = catbuf f-f 128 

< 4 7 > 830 NEXT 

< 59 > 840 CLOSE 1 

< 7 4 > 850 IF 1 nd 256= 1 THEN GOTO 2670 

< 2 6 > 860 PRINT FNsc$(B,0);erdownt 

< 8 7 > 870 PRINT FNsc$(6,3 ) ;de 1ine$ 

< 88 > 880 IF indl56 = 0 THEN GOTO 900. 

< 52 > 890 op t%= 2 : GOTO 1020 

<12 > 900 PRINT FNsc$(6,26) I "Ausgabe am (M)onitor oder { 
D) rucker. ?";bei 1 $ 

< 29 > 910 OptS6=0 

< 5 5 > 920 a$ = lNKEY$:IF a$="" THEN GOTO 920 

< 5 8 > 930 IF UPPER$(a$) = "D" THEN optS6= 1 

< 9 7 > 940 IF UPPERS ( a$ ) = " M " OR a$=CHR$(13> THEN opt56 = 2 

< 6 > 950 IF a$ = CHR$(27) OR a$ = CHR$(3) THEN GOTO 460 

< 38 > 960 IF opt56=l OR optX=2 THEN GOTO 980 

< 7 0 > 970 PRINT bell$;:GOTO 920 

< 71> 980 IF optX=2 THEN GOTO 1020 

< 55 > 990 L PRI NT TAB( 16 ) ; fe11on$;"Archlv-Date1 "+lw$ + UPP 

ER$(arcdatS > + ".ARC" 

< 89 > 1000 LPRINT: LPRINT:WIDTH LPRINT 60 

< 7 0 > 1010 LPRINT messt(8)tmesst(8) :LPRINT STRINGS(58."- 

");fettOffS:LPRINT:GOTO 1040 

< 22 > 1020 PRINT FNscS(6,3);de'ine$ PRINT FNw$(8,0,21.90 

) 

< 73 > 1030 PRINT messt!8)tmesst!fl)+mess$(8);PRINT STRING 

$(88, "-" ) :PRINT 

< 9 > 1040 rlX=0: r 256 = 0 : c a t bu f f=&HFC00 

< 8 7 > 1050 datei $=''": datum$ = 

< 8 1 > 1060 FOR j 56= 2 TO 12 

< 8 3 > 1070.. datei $ = date i $+CHR$( PEEK ( catbuf f + j56) ) 

< 5 1 > 1080.. IF j 56= 9 THEN d a t e 1 $ = da t e i $+" . ' 

<10> 1090 NEXT 

< 40 > 1100 r2X=PEEK( cat bu f *)» 256 + PEEK (catbuf ft 1 )-r 156 

< 32 > 1110 FOR jX=l TO 3 

< 14 > 1120.. a$ = RIGHT$(STR$;DEEK(catbuff + j564 12 ) ) , 2 ) 

< 14 > 1130.. datum$=datum$*a$- 

< 9 6 > 1140 NEXT 

< 4 4 > 1150 IF optX=2 THEN GC'0 1170 

< 45 > 1160 LPRINT datei$t ,uSING »»»#".r2XLPR I NT ". 

";LEFTS(datumt,8) , , , GD T 0 1190 

< 5 0 > 1170 PRINT datei$+ , ,USING ••»*' ,r 2X ; 

< 61 > 1180 PRINT ", ";LEFT$(datum$,8);". "; 

< 71 > 1190 catbuff=catbuf f *• 1 6 

< 84 > 1200 r 156= r286+rl56: IF PE EK ( c a t bu f f +2 > < >0 THEN GOTO 1 

050 

< 0> 1210 kb=INT(rlX/B)+l IF ( r 1X/8 + 1 ) - k b< > 0 THEN GOTO 

1230 

<48> 1220 kb= kb-1 

< 6 7 > 1230 IF opt56 = 2 THEN GOTO 1270 

< 5 1 » 1240 LPRINT:LPRINT:LPRINT fe11On$; "Be’egte Records 

= " ; r 156; "entspr , " ; 

< 5 9 > 1250 LPRINT kb;"kB";". ; "; (catbuff-&HFOOO)/16; "Da 

tei(en)";fettoffS 

< 3 > 1260 GOTO 1340 

< 8 > 1270 PRINT FNw$(0,0,32,90) 

< 9 0 > 1280 IF 1 nd 156= 1 THEN GOTO 3130 

< 1 5 > 1290 kb=INT(rl56/8) + l 

< 15 > 1300 IF ( r!56/8+l )-kb< >0 THEN GOTO 1320 

< 4 7 > 1310 k b= kb-1 

< 69 > 1320 PRINT FNsct(6,11);1nvon$+" "+FNfi1e$(1w$,arcd 

at$ , " . ARC " ) + 1 nvoff$+" enthael t" ; rl56; 

< 42 > 1330 PRINT "Records entspr, ";kb ; "kB";". ; ”; (catbu 

ff-SHFOOO)/16;"Datei(en)" 

<19 > 1340 GOSUB 3900:CLOSE:GOTO 450 

< 21> 1350 REM- 

<10> 1360 REM I. Archiv umkopieren. I 

< 2 7 > 1370 REM- 

< 5 3 > 1380 PRINT FNsc$(4,3) ;del 1ne$:PRINT FNscS(6,3);del 

ine$ 

< 2 7 > 1390 PRINT FNscS{4,22) ; " >>> Archiv-Dateien auf Dis 

kette umkopieren <<<" 

< 0> 1400 GOSUB 4380: lw$="M: ":ind1X=1:GOSUB 4200:IF arc 

da t$ ( i 56 ) = " " THEN GOTO 460 

< 8 4 > 1410 arcdat$ = LEFT$(arcdat$(’ X ),0):e*t$(1) = ' .arc":e 

xt$(2 ) = " .cat":GOSUB 3960 

< 69) 1420 FOR f11eX=l TO 2 

< 68 > 1430.. OPEN " R " , 1 , "m : " + a r eda t$ + e x t$ ( f i 1 e56 ) : F I E LO 1 

,128 AS read rec$ 

< 58 > 1440.. OPEN "R" , 2 . "a : '+ arcdat$ + ext$( f i 1 e56) : Fi ELD 2 

,128 AS writerecS 

< 50 > 1450.. dateit = arcdat$ + ext$(f1 leX):GOSUB 4500:loarc 

= 1 oftl 


Listing Storefill 
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»JOYCE-Bestellservice« 
Knüller für JOYCE-Fans 


Ich mache von Ihrem Angebot Gebrauch und bestelle hiermit: 


303 

Stck. 

Databox zum JOYCE SH 1 

30,- DM 

304 

Stck. 

Databox-Diskette Nr. 1 zum JOYCE SH 2 

30,- DM 

305 

Stck. 

Databox-Diskette Nr. 2 zum JOYCE SH 2 

24,- DM 

306 

Stck. 

Kombipack, Disk 1 + 2 zum JOYCE SH 2 

48,- DM 

360 

Stck. 

Databox-Diskette Nr. 1 zum JOYCE SH 3 

30,- DM 

361 

Stck. 

Databox-Diskette Nr. 2 zum JOYCE SH 3 

24,- DM 

362 

Stck. 

Kombipack, Disk 1 + 2 zum JOYCE SH 3 

48,- DM 

367 

Stck. 

Sonderheft JOYCE Nr. 4 

20,- DM 

3671 

Stck. 

Databox-Diskette Nr. 1 zum JOYCE SH 4 

30,- DM 

3672 

Stck. 

Databox-Diskette Nr. 2 zum JOYCE SH 4 

24,- DM 

3673 

Stck. 

Kombipack, Disk 1 + 2 zum JOYCE SH 4 

48,- DM 

215 

Stck. 

JOYCE Programmsammlung Vol. 1 

59,- DM 

216 

Stck. 

JOYCE Programmsammlung Vol. 2 

49,- DM 

217 _ 

Stck. 

JOYCE Programmsammlung Vol. 3 

69,- DM 

219 

Stck. 

JOYCE Programmsammlung Vol. 4 

59,- DM 

220 

Stck. 

JOYCE Programmsammlung Vol. 5 

99,- DM 

221 

Stck. 

JOYCE Programmsammlung Vol. 6 

59,- DM 


+ Porto/Verpackung 

(Inland 4,- DM, Ausland 6,- DM) _ 

Gesamtbetrag =========== ^^ = 

□ Den Betrag bezahle ich mittels des beigefügten Verrechnungs¬ 
schecks. 

□ Ich bitte um Lieferung per Nachnahme zuzüglich der Nachnahme¬ 
gebühr. (Bei Lieferung ins Ausland ist Nachnahme nicht möglich.) 
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JOYCE—| 


< 31 > 

1460. 

< 1 7 > 

1470. 

< 35 > 

1480. 

<91 > 

1 490. 

< 70 > 

1500 1 

< 5 8 > 

1510 1 

< 9 6 > 

1520 1 

< 64 > 

1530 1 

< 45 > 

1540 1 
1 ne$ 

< 10> 

1550 1 

cu ron: 

< 1 7 > 

1560 

< 18) 

1570 

00 

< 9) 

1580 

FNf11 ■ 

< 6 7 > 

1590 

3900 : ' 

<42> 

1600 

M : ” , a 

< 9 3 > 

1610 
##“ ; kl 

< 78) 

1620 1 
33,86 

< 85 > 

1630 1 
: catbi 

< 96 > 

1640 i 
writi 

< 15) 

1650 i 

< 6 7 > 

1660 
i namei 

< 90 > 

1670 

< 6> 

1680 

< 9 5 > 

1690 

<44 > 

1700 

< 73 > 

1710 

< 9) 

1720 

< 36 > 

1 730 

< 8) 

1 740 1 

< 74) 

1 750 1 

< 1 4 > 

1 760 1 

< 1 > 

1 7 70 i 

< 1 1 > 

1 780 1 

< 50 > 

1 790 1 

< 88 > 

1800 1 

<11> 

1810 l 

<69 > 

1820 

< 62 > 

1830 
: ad r = 

< 26 > 

1840 

< 60 > 

1850. 

<92 ) 

1860 . 

< 4 7 > 

1870 . 

< 43 > 

1880 . 

< 5 7 > 

1890 . 

< 1 > 

1900 1 

< 26 > 

1910 

< 70) 

1920 

< 15) 

1930 

<43> 

1940 
Nf Ile: 

< 79 > 

1950 : 
, '• .CA 

< 1 1 > 

1960 i 

< 42 > 

1970 i 


FOR 1*=1 TO loarc 

.. GET 1,1*.LSET wrlterec$=readrec$:PUT 2,1* 
NEXT 

CLOSE:KILL "m:"+ar cd a t$+ext$ (fi1e*) 


; de 1 


THEN GOTO 450 


.arcdat$,".ARC ")+1nvoff$; 
bereits vorhanden !!I";curoff$:GOSUB 


Belegte/Maximale Records 


" + f n f ti e $(" 
";USING #F 


- Abbruch mit ST0P'';bell$ 


erstellen —> Neue Diskette. I 


rec$="" 

FOR l* = 0 TO 127 

. . z$=CHR$(PEEK(adr+l*) ) :rec$=rec$+z$ 
NEXT 

LSET catrec$=rec$:PUT 3,m*:adr = adr+128 


' + 1nvon$t" "+FNfi1e$("M: ",arcdat$ 
• " erstellt <<< " 


<42> 1980 REM - 

<51> 1990 REM I. Archiv erstellen --> Abbruch. I 

< 1> 2000 REM - 

< 7> 2010 CLOSErKILL "m:"+arcdat$4",arc":GOTO 450 

< 7 > 2020 REM- 


<86> 2030 REM I. Archiv erstellen --> Dateinamen eingeb 

en. I 

<13 > 2040 REM- 


< 5 3 > 2050 GOSUB 4440:n*=l 

< 6 3 > 2060 IF d atei$="" THEN GOTO 1650 

< 34 > 2070 dat$(1>=STRIP$(FrND$(datel$) ) 

< 3 4 > 2080 IF dat$(l)<>"" THEN GOTO 2100 

< 5 0 > 2090 GOSUB 3750;GOTO 2050 

< 42 > 2100 wlldcard*=INSTR(datei$,"*") 

<79> 2110 IF w1 1dca rd* < ) 0 THEN GOSUB 2400 

< 9 > 2120 FOR 1*=1 TO n* 

< 8 6 > 2130.. PRINT FNsc$(6,45) ;dat$( I *> 

<84> 2140.. OPEN "R" ,2 ,dat$( 1*) :F1ELD 2,126 AS readrec$ 

< 6 > 2150.. date1$=dat$(1*):1w$="A:;GOSUB 4500:lodat=l 

of 1 1 

< 33 > 2160.. IF 1 Oda t + k* < = 1380 THEN GOTO 2200 

< 7 7 > 2170.. PRINT FNsc$(6,3> ;de1 1ne$ 

< 3 7 > 2180.. PRINT FNsc$(6,26 ) ; "Arch1v-Date- "4FNf11e$(" 

M:",arcdat$,".ARC" )4 " voll !!:" 

<90> 2190.. GOSUB 3900;CL0SE 2:IF ind2*=l THEN GOTO 197 
0 ELSE GOTO 2050 

< 15 > 2200.. FOR s*=l TO lodat 

<56> 2210.,.. GET 2,s*:k* = h%+ 1:lSET w r1terec$=readrec$ 
PUT 1,k* 

<14 > 2220.,.. IF ind 2X=1 THEN GOTO 2240 

<95> 2230.... PRINT FNsc$(4,75) ; USING "»»»#'' ; k* 

< 20 > 2240. . NEXT 

<31> 2250.. CLOSE 2:b$ = HEX$(k*) ;b$ = STR ING${4-LEN(b$) , "0 

" ) + b$ 

<16> 2260,. lowb$=RIGHT$(b$,2):hlghb$=LEFT$(b$,2>:POKE 
catbuff,VAL("4H"4hig hb$) 

< 1 7 > 2270.. POKE catbuff41,vAL("&H"41owb$):catbuff = catb 

uf f42 

< 8 0 > 2280.. FOR 1*=1 TO 12 

< 68 > 2290.... b$=M!D$(dat$(1*),1*,1):IF b$="." THEN GOT 

0 2310 

< 71> 2300.... POKE catbuff,ASC(b$):catbuff = catbuff41 
<13> 2310.. NEXT 

< 33 > 2320.. POKE catbuff,VAL(11$):POKE catbuff41,VAL(mm 

$ ) :POKE catbuff42,VAL(33$) 

< 1 7 > 2330.. catbuff = catbuff43:IF ind2X=l THEN GOTO 3030 
<51> 2340.. PRINT FNsc$(18,37) ; 1nvonjl" "4FNf11e$("M: " , 

arcdatj,".ARC ")4invoff$ 

<54> 2350.. PRINT F Nw$ { 20,3 , 10,84 ) : I F ca t buf f > 8.HF0 1 0 TH 
EN GOTO 2370:PRINT FNsc$(0,0) 

< 5 6 > 2360. . GOTO 2380 

<10> 2370.. PRINT curremem$; 

<21> 2380.. PRINT dat$(i*);". ";:PRINT curmem$; :PRI NT F 
Nw$(0,0,32,90) 

< 71 ) 2390 NEXT:G0T0 2050 

< 29 > 2400 FOR n*=l TO 64 

<57> 2410.. dat$(n*)=STRIP$(FIND$(datei$,n*)):lF dat$(n 
*) = '"' THEN GOTO 2430 

< 9 7 > 2420 NEXT 

< 2 6 > 2430 n*=n*-l:RETURN 

< 9 3 > 2440 REM- 

<73> 2450 REM I. Datei Ins Archiv kopieren. I 

< 0> 2460 REM - 

< 51> 2470 GOSUB 4380 


Llsting Storefill 


Listing Storefill 



DM 309, - 


DM 

DM 


30,- 

49,- 


DM 35, 


JOYCE 720 KB 5,25" Floppy 

Teamdrive Diskettenstation, Gehäuse siehe Bild. 
internes Netzteil, komplett mit Anschlußkabel u. 

Anleitung, problemlos und schnell anschließbar. 

Umschalter für MS-Copy DM 20, - 

Spezialkabel f. Joyce Plus (8512) mit Umschalter vom 3"-B-Laufwerk intern 
zum 5,25"-B-Laufwerk extern 

MS-Copy: sehr nützliches Programm zum Kopieren von CPM auf MS-DOS- 
Textdateien und umgekehrt 

MSD: Anschlußkabel für unsere CPC und Joyce-Diskettenstationen an 
MS-DOS-Rechnern, mit Anleitung für 360 KB und 720 KB 

CPC-820 KB 5,25" Floppy 

5,25"-Teamdrive-Super-Dlskettenstation 820 KB, 256 Einträge, anschlußfertig f. 464, 664, 
6128, Gehäuse siehe Abbildung, umschaltbar auf 180 KB, inkl. Teamdrive-Maxi-Programm 
vollkompatibel zu BASIC, CPM u. CPM Plus, hochwertiges Floppylaufwerk, benutzer¬ 
freundlich, Internes Netzteil, problemloser Anschluß, mit Bedienungsanleitung, 

1 Jahr Garantie DM 369, - 

Preise zzgl. Porto und Verpackung. Versand per Nachnahme, Liste kostenlos 

Krebs electronic 

Datentechnik - Computer - Hardware u. Software 
6751 Weilerbach, Tel. 0 63 74 - 68 78 


♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 


B 


♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 


B88S8 888H8 

@688808 06869AB 

8888888 FB 8888888R8 

BT8 888 8D8 

8 W8 » Suchen Sie neue 8 W8 

6A8 profeasioneI I« Soft- 4 8A8 

8R8 Harchwre für Ihren AMSTRAD 8R8 

8 E8 JOYCE PCW 8256 I 8512 oder für 8 E8 

Ihren AMSTRAD PCW P512 ? 

888 888 

PCW PCW 


♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 


=> Gratis JOYCE PCW Infoliate anfordern ! 


♦ Korbiniansplatz 2 8045 Ismaning 

♦ Tel. 089 - 965029 Fax. - 965001 

♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 


7’89 PC 71 















































[—JOYCE 


< 56) 

< 62 > 

< 1 > 

< 9 5 > 

< 82 > 

< 30 > 

< 74 > 

< 45 > 

< 19 > 

< 9 7 > 

< 12 > 

< 78 > 

< 89 > 

< 5 5 > 

< 88 > 

< 5 > 

< 6 > 
<52 > 

< 4 > 

< 30 > 

< 73 > 


2480 PRINT FNsc$(4,3) ;del ine$:PRINT FNsct(6,3 ) ; de 1 
inet 

2490 PRINT FNsc$(4,28);">>> Datei ins Archiv Kopie 
ren <<< " 

2500 GOSUB 3820 
2510 1ndlX=l:ind2X=l 
2520 GOTO 3130 

2 5 30 datei 2$=STRIPt(FIND$(datei t) ) 

2540 IF datei2$<>"" THEN GOTO 2570 
2550 GOSUB 3750 
2560 GOTO 2520 

2570 PRINT FNsct«6.45);datei2t 

2580 OPEN "R" , 1,"a : "+datei$:FIELD 1,128 AS readrec 

$ 

2590 OPEN "R" , 2 , "m: "-tdatei $ : FIELO 2,128 AS writere 
c$ 

2600 1w$="A:":GOSUB 4500;1odat=1of11 
2610 FOR i%=1 TO lodat 

2620.. GET 1,1X:LSET w r i te rec$= read r ec$ : PUT 2 , i SS 
2630 NEXT 
2640 CLOSE 

2650 GOSUB 4380:1 w$="A: " :c 1 $ = datei1 $:GOSUB 4200:IF 
a reda t$(1X) = "" THEN GOTO 2650 
2660 c$ = datei$:GOT0 730 
2670 dateil$=cl$:GOTO 3180 

2680 REM - 


< 4 > 2690 REM I. Datei ins Archiv kopieren --> Datei be 

reits im Archiv. I 

< 51 > 2700 REM- 


<81> 2710 datei$ = arcdat$+".arc":GOSUB 4500:1oarc=1of11: 
nX = 0 

< 49 > 2 720 IF loarc-reclX+rec2X+l+lodat<=1380 THEN GOTO 

2740 

<24> 2730 CLOSErKILL "m:"+datpi$:GOTO 2170 

< 33 > 2740 OPEN " R",1,1w$+aredat$+".arc":FIELD 1,128 AS 

arcrecj 

< 82 > 2750 OPEN " R", 2,"m:dump.$$$":FIELD 2,128 AS dumpre 

c$ 

<40> 2760 FOR recX=reclX+l TO loarc 

<43> 2770.. nX=nX+1:GET l.recXrLSET dumprec$=arcrec$:PU 
T 2 , nX 

< 22 > 2780 NEXT 

<36> 2790 1odump=loarc-recl*:datei$=c$:CLOSE 2:diffX=lo 
dat-(reclX-rec2X) 

<58> 2800 OPEN “R" ,2,"M: "+datei$:FIELD 2,128 AS datrec$ 

< 3> 2810 FOR recX= 1 TO lodat 

<77> 2820.. GET 2,recX:LSET arcreo$=datrec$:PUT l,rec2X 
+ recX 

< 92 > 2830 NEXT:CLOSE 2 

<81> 2840 OPEN "R" ,2,"m:dump.$$$":FI EID 2,128 AS dumpre 

c$ 

< 38 > 2850 FOR recX=l TO lodump 

<72> 2860.. GET 2,recX:LSET arcrec$=dumprec$:PUT 1,rec2 
X+lodat+recX 

< 29 > 2870 NEXT:CLOSE 

< 4 4 > 2880 POKE adr + 13,VAL(ttt):POKE adr + 14,VAL(mm$ ) :POK 

E ad r+15,VAL(J j $) 

< 65 > 2890 recX=PEEK(adr)*256+PEEK(adr+1):recX=recX+diff 

X:rechiX=INT(recX/256) 

<64> 2900 recloX=(recX/256-rechiX)*256:POKE adr,recht*: 
POKE adr+1,recloX 

< 68 > 2910 ad r = adr+16:IF PEEK(adr + 2)<>0 THEN GOTO 2890 

< 40 > 2920 IF ind3X=l THEN GOTO 2940 

< 80 > 2930 KILL "m:dump.$$$" 

< 1 6 > 2940 catbuff = adr■catend = adr-16:GOTO 3040 

< 16 > 2950 REM- 


<11> 2960 REM I. Datei ins Archiv kopieren --> Datei no 
ch nicht im Archiv. I 

< 22 > 2970 REM- 


< 62 > 2980 recX = PEEK(adr-16 )*256 + PEEK(adr-15) 

<65> 2990 kX=recX:catbuff=adr:catend=adr:iX=1:dat$(1>=d 
atei 2 $:date1$=c$ 

< 56> 3000 OPEN "R",1,"a:"+arcdatt+".arc":FIELD 1,128 AS 

writerec$ 

< 50 > 3010 OPEN "R",2,"m: "tdatei$:FIELD 2,128 AS readrec 

$ 

< 2 > 3020 GOTO 2160 

< 91> 3030 CLOSE 

< 24 > 3040 OPEN "R",3,"a: " + arcdat$+".cat":GOTO 1820 

< 9 > 3050 CLOSErKILL "m:"+datei$ 

< 84 > 3060 rlX = PEEK(catend)*256 + PEEK(catend+l):GOTO 1290 

< 7 7 > 3070 REM- 

< 41> 3080 REM I. Oatei aus dem Archiv zurueckho1en. I 

< 83 > 3090 REM- 

< 27 > 3100 PRINT FNsc$(4,3);de 1ine$:PRI NT FNsct(6,3);de 1 

i net 

< 8 6 > 3110 PRINT FNsc$(4,25);">>> Datei aus dem Archiv z 

urueckholen < < <" 

< 76 > 3120 G0SU8 4380:ind1X=1:1nd3X=1:GOTO 700 

< 90 > 3130 GOSUB 4440 


< 10 > 
< 80 > 
< 82 > 

< 32 > 

< 8 3 > 
<42 > 

< 59 > 

< 9 6 > 

< 94 > 

< 40 > 
<89 > 
<41 > 

< 43 > 

< 52 > 

< 6 > 

< 32 > 

< 6 6 > 

< 98 > 

< 9 6 > 

< 9 7 > 

< 2 > 

< 3 5 > 

< 11 > 

< 10 > 
< 5 > 


3140 IF datei$="" THEN GOTO 450 
3150 GOSUB 4610 

3160 IF 1nd2X=1 THEN GOTO 2530 

3170 OPEN "R",1,"a:"+arcdat$+".arc":FIELD 1,128 AS 
arcrect 

3180 ad r = 8.HF 000-16 : rec2X = 0 
3190 adr=adr+16:f11e$="“ 

3200 FOR iX=2 TO 12 

3210.. fi1e$ = fi1e$ + CHR$(PEEK(adr+1X) ) 

3220 NEXT 

3230 IF f11e$=datei1$ THEN GOTO 3270 
3240 IF P£EK(adr+2)<>0 THEN GOTO 3190 
3250 IF ind2X=1 THEN GOTO 2980 
3260 GOSUB 3750:GOTO 3130 
3270 reclX=PEEK(adr)*256+PEEK(adr+l) 

3280 IF ad r = &HF000 THEN GOTO 3300 
3290 re&2X=PEEK(adr-16)*256+PEEK(adr-15) 

3300 IF ind2X=1 THEN GOTO 2710 
3310 PRINT FNsct(6,3) ;deline$ 

3320 datei2t=UPPERt(LEFT$(dateil$,8)+"."+RIGHT$(da 
tel 1 $, 3) ) 

3330 PRINT FNsc$(6,24) ;’date12$;". --> (H)olen oder 
(Ljoeschen ?";be11 $ 

3340 a$=INKEY$:IF a$="" THEN GOTO 3340 
3350 IF UPPER$(a$ ) = "H" OR a$ = CHR*tl3) THEN GOTO 34 
10 

3360 IF UPPER$(a$)="L" THEN GOTO 3480 
3370 PRINT bei 1 $; :GOTO 3340 

3380 REM - 


< 7> 3390 REM I. Datei aus dem Archiv zurueckholen —> 

Holen. I 

< 82 > 3400 REM- 


< 85 > 3410 OPEN "R".2,"m:”+datei$:FIELD 2,128 AS writere 

c$:GOSUB 3960:nX=0 

< 0> 3420 FOR recX=rec2X+l TO reclX 

<84> 3430.. nX=nX+l:GET l.recXrLSET writerec$=arcrec$:P 
UT 2,nX 

<13 > 3440 NEXT:CLOSE:GOTO 3130 

< 79 > 3450 REM- 


< 8 3 > 3460 REM I. Datei aus dem Archiv zurueckholen --> 

Loeschen. I 

< 8 5 > 3470 REM--- 


< 25 > 

< 36 > 

< 19) 

< 4 2 > 

< 1 > 
< 2 8 > 

< 39 > 

< 10 ) 
< 68 > 

< 3 > 

< 90 > 

< 77) 

< 68 > 

< 4 7 > 

< 96 > 

< 16) 

< 5 6 > 

< 98) 

< 80 > 

< 6) 

< 4 4 > 

< 20 > 
< 6 1 > 

< 3 3 > 

< 6 7 > 

< 1 > 

< 46 > 

< 6 1 > 

< 4 7 > 

< 25 ) 

< 28 > 

< 16) 

< 9 6 > 

< 9 3 > 

< 5 4 > 

< 7 4 > 

< 8 7 > 

< 71 > 

< 98 > 

< 12 > 
< 14 > 


3480 dateit=arcdatt+".arc":GOSUB 3960:GOSUB 4500:1 
oarc=lof11 nX=0 

3490 IF PEEK(adr+2)=0 THEN GOTO 3530 
3500 FOR recX=reclX+l TO loarc 

3510.. nX=nX+1:GET l.recXrPUT 1 , rec2X + nX 
3520 NEXT 

3530 FOR i=adr TO 8.HF400 

3540.. POKE i,PEEK(1+16) 

3550 NEXT 

3560 IF PEEK(adr+2)=0 THEN GOTO 2940 

3570 catbuff=adr:diffX=rec2X-recIX:GOTO 2890 

3580 REM - 

3590 REM I. Escape-Folgen. I 

3600 REM - 

3610 bell$ = CHR$(7 ) :esc$ = CHR$(27) 

3620 stoff$ = esc$+"0":ston$ = esc$+' 1" 

3630 cls$=esc$+"E":home$=esc$+"H":erdown$=esc$+"J" 
3640 DEF FNw$(ozX, 1 sX', hX , bX ) = e sc t + "X"'+CHR$ (ozX+32 ) 
+ CHR$(1SX+32)+CHR$< hX+31) + CHR${bX+31) 

3650 DEF FNsc$(zX,sX)=esc$+"Y"+CHR$(zX+32)+CHR$(sX 
+ 32) 

3660 curon$ = esct+"e":curoff$ = esc$+"f":cu rmem$ = esc$ 
+"j":cu r remem$=esc$+"k" 

3670 invon$=esc$+"p":invoff$=esct+”q" 

3680 fetton$ = esc$+"E" : fettoff$ = e3C$+"F" 

3690 RETURN 

3700 REM - 

3710 REM I. UP Fehlerbehandlung, I 

3720 REM - 

3730 IF ERR = 6 4 AND ERL=1570 THEN RESUME 1540 

3740 IF ERR053 THEN GOTO 3770 

3750 PRINT FNsc$(6,3);deline$;curoff$ 

3760 PRINT FNsc$(6,30);"Fehler Datei nicht gefun 
den !":GOSUB 3900:RETURN 
3770 PRINT FNsc$(6,3>;de11ne$ 

3780 PRINT FNsct ( 6,30 ) ; "Fehl er ’';ERR;" in Zeile ; 
ERL:GOSUB 3900:GOT0 450 

3790 REM - 

3800 REM I. UP Directory ausgeben. I 

3810 REM - 

3820 PRINT FNsct(6,3);de 1ine$;curoff$ 

3830 PRINT FNsct(6,31 ) ;"Directory der Diskette in 
A : " 

3840 PRINT FNw$<8.3,8,84);erdownt 
3850 DIR 

3860 PRINT FNwS<0,0,32,90):RETURN 

3870 REM - 

3880 REM I, UP Warten auf Tastendruck, I 


Listing Storefill 


Listing Storefill 


72 PC 7’89 
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JOYCE—i 


<10> 

< 89 > 

< 35 > 

< 38 > 

< 2 > 

< 35 > 

< 8 > 
< 2 6 > 
< 28 > 

<1?> 

< 23 > 
<75> 

< 30 > 

< 5 5 > 

< 66 > 

< 11 > 

< 49 > 

< 4 > 

< 3 > 

< 35 > 

< 5 9 > 

< 2 8 > 
<31 > 

< 34 > 
<11> 

< 5 4 > 

< 39 > 

< 6 6 > 

< 62 > 

< 19 > 

< 68 > 

< 4 > 

< 79 > 

< 62 > 

< 28 > 

< 6 5 > 

< 5 > 

< 74> 

< 5 6 > 

< 2 8 > 

< 3 7 > 
<91 > 

< 48 > 

< 33 > 

< 6 > 

< 40 > 

< 69 > 

< 50 > 

< 75 > 

< 2 1 > 

< 84 > 

< 8 7 > 

< 50 > 

< 3 4 > 

< 56 > 
<11> 

< 28 > 

< 7 7 > 

< 5 > 

< 6 7 > 

< 11 > 

< 34 > 

< 16> 
<80> 

< 73 > 

< 4 8 > 

< 93 > 

< 14> 
<42 > 

< 19 > 

< 8 6 > 

< 96 > 

< 2 8 > 

< 9 > 

< 43 > 
<31 > 

< 2 7 > 

< 4 7 > 

< 28 > 

< 42 > 

<21 > 
<35 > 

< 9 8 > 


3890 REM - 

3900 PRINT FN3C$( 30,37); invon$+ " << RETURN >> " + in 
v o f f $ ;bei 1$ 

3910 WHILE INKEY$="":WENO 

3920 PRINT FN3C$(30,30);STRING$(30," "):RETURN 

3930 REM - 

3940 REM I. BITTE WARTEN ausgeben. I 

3950 REM - 

3960 PRINT FNsc$(6,3);del1ne$ 

3970 PRINT FNsc$(6.37);invOn$+" BITTE WARTEN "+inv 
Off$:RETURN 

3980 REM - 

3990 REM I. UP MC-Programme poken. I 

4000 REM - 

4010 RESTORE 4080 

4020 cl earmem=&HEFE8:REM **** lkB ab &HFOOO loesch 
en **** 

4030 records=&HEFB8:REM *** Filegroesse ermitteln 
**** 

4040 FOR ad r=&HEFB8 TO &HEFFF 

4050.. READ byte$:P0KE adr,VAL{CHR$(38)+ CHR$(72 ) + b 
y te$) 

4060 NEXT, 

4070 RETURN 

4080 DATA 18.25.00.42,41,53,49.43 
4090 DATA 20,20,20,43,4F,4D,00,00 
4100 DATA 00,00,00,00,00,00,00,00 
4110 DATA 00,00,00,00,00,00,00,00 
4120 DATA 00,00,00,00,00,00,00,OE 
4130 DATA 23,11,BA,EF,CD,05,00,C9 
4140 DATA 06,04,21,00,FO,C5,06,00 
4150 DATA 36,00,23,10,FB,Cl,10,F5 
4160 DATA C9,00,00,00,00,00,00,00 

4170 REM - 

4180 REM I. UP Archiv-Datei auswaehlen. I 

4190 REM - 

4200 PRINT FNsc$(6,3);del1ne$:PRINT FNsc$(6,26);"A 

rchiv-Datei 

4210 FOR 1X=1 TO 64 

4220.. arcdat$(iX)=STRIP$(FIND$(1w$+arc",iX)) 

4230.. IF a rcdat $(i X ) = " " THEN GOTO 4310 

4240.. PRINT FNsc$(6,41);1w$+UPPER$(arcdat$(iX))+" 
.. Cj/n) ? " ; be11 $ 

4250.. a$=INKEY$:IF a$="" THEN GOTO 4250 

4260.. IF UPPER$(a$) = ''J" OR a$ = CHR$(13) THEN RETUR 
N 

4270.. IF UPPER$(a$)="N" THEN GOTO 4300 

4280.. IF a$=CHR$(2 7) OR a$ = CHR$(3) THEN GOTO 1970 

4290.. PRINT be11 $; :GOTO 4250 
4300 NEXT 

4310 IF 1ndlX=l OR lw$="M;" THEN GOTO 4330 

4320 1 w$="M:":GOTO 4210 

4330 PRINT FNsc$(6,3);deline$ 

4340 PRINT FNsc$(6,30);"Keine Archiv-Datei gefunde 
n ! ! !":GOSUB 3900;GOTO 450 

4350 REM - 

4360 REM I. UP Diskettenwechsel. I 

4370 REM - 

4380 PRINT FNsc$(6,3);deline$ 

4390 PRINT FNsc$(6,18);"Gewuenschte Diskette einle 
gen --> Oanach Taste druecken" 

4400 GOSUB 3900;RETURN 

4410 REM - 

4420 REM I, UP Eingabe des Dateinamens. I 

4430 REM - 

4440 PRINT FNsc$(6.3);deline$ 

4450 PRINT FNsc$(6,33);"Date1name ";curon$;bei 1$ 

4460 INPUT datei$:PRINT curOff$:RETURN 

4470 REM - 

4480 REM I. UP Dateigroesse ermitteln. I 

4490 REM - 

4500 IF 1w$=" A: THEN POKE records + 2.1 
4510 IF 1w$="M: THEN POKE records+2,13 
4520 GOSUB 4610 
4530 FOR IX=1 TO 11 

4540.. b$=MID$(datei1$,IX,1) 

4550.. POKE records+lX+2,ASC(b$) 

4560 NEXT 

45 70 CALL records;lofi1=PEEK(records+36)* 256 +PEEK( 
records+35);RETURN 

4580 REM - 

4590 REM I. UP Dateinamen umwandeln. I 

4600 REM - 

4610 posX=INSTR(datei$, " . " ) 

4620 IF posXOO THEN GOTO 4650 
4630 GOSUB 3750 

4640 IF ind2X=l THEN GOTO 2520 ELSE GOTO 450 
4650 IF posX=10 THEN GOTO 4700 
4660 name$=LEFT$(datei$,posX-1 ) 

4670 typ$=RIGHT$(datei$,LEN(datei$)-posX) 

4680 datei1$=UPPER$(name$+STRING$(9-posX,32)+typ$+ 
STRING$(ABS(LEN(datei$)-3-posX),32)) 

4690 RETURN 

4700 date11$=LEFT$(datei$,8)+RIGHT$(date1$,3) 

4710 RETURN 
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[-JOYCE 


Flipper 

Von CP/M zu LocoScript 
in drei Sekunden 

Bisher hätte jeder Joyce-Besitzer den Kopf geschüttelt, wenn jemand be¬ 
hauptet hätte, daß der Wechsel von CP/M nach LocoScript innerhalb von 
nur drei Sekunden vollzogen werden kann. Daß es dennoch möglich ist, be¬ 
weist die Firma Software Imperative mit ihrem Produkt Flipper. 

Kurz und bündig könnte zu diesem Produkt gesagt werden, daß es dem An¬ 
wender ermöglicht, mit zwei Programmen fast “gleichzeitig“ zu arbeiten. 


Von CP/M nach LocoScript zu sprin¬ 
gen, wird von den zwei Programmen 
FLIPLOCl.COM und FLIPLOC2. 
COM erledigt. 

Nach dem Aufruf eines der beiden Pro¬ 
gramme wird eine Umbelegung der Ta¬ 
sten SHIFT, EXTRA und EXIT vorge¬ 
nommen, die, wenn sie gleichzeitig be¬ 
tätigt werden, ein Zurücksetzen des 
Computers zur Folge haben. 

Von CP/M zu LocoScript 

Nach der nun folgenden Aufforderung 
diese drei Tasten zu drücken, sollten 
Sie eine LocoScript 2-Startdiskette ein- 
legen. LocoScript wird jetzt wie ge¬ 
wohnt eingeladen. 

Durch das Drücken von SHIFT, EX¬ 
TRA, EXIT springen Sie nun in den 


CP/M-Modus zurück, wodurch sich 
Flipper fertig installiert. 

Dem Arbeiten steht nun nichts mehr im 
Wege. 

Nach dem Aufruf von FLIPL0C1 
(FLIPLOC2) stehen 56(40) kByte für 
Loco Senpt und 92(108) kByte in CP/M 
auf Lauf verk M: zur Verfügung. 
Jedesmal, wenn Sie jetzt SHIFT, EX¬ 
TRA, EXIT drücken, können Sie von 
der LocoScript- in die CP/M-Ebene 
oder zurückspringen. Das Arbeiten un¬ 
ter CP/M und LocoScript ist jetzt fast 
gleichzeitig möglich. 

Wollen Sie einen Brief schreiben, 
springen Sie zu LocoScript, benötigen 
Sie kurzfristig noch die Adresse des 
Empfängers, springen Sie in die 
CP/M-Ebene, in der zum Beispiel eine 
Adreßverwaltung geladen ist. 


CP/M mal zwei 

Auch das Arbeiten innerhalb von zwei 
CP/M-Bereichen ist möglich. Mit 
FLIPCPM1.COM und FLIPCPM2. 
COM können zwei Bereiche eingestellt 
werden, die ebenfalls mit SHIFT, EX¬ 
TRA, EXIT angesprungen werden 
können. Diese Programme werden ge¬ 
nauso wie FLIPLOC1 und FLIPLOC2 
installiert. Sie können nun im ersten 
Bereich mit einer Textverarbeitung 
(zum Beispiel Prowort) und im zweiten 
mit einer Adreßverwaltung arbeiten. 
Nach dem Aufruf von FLIPCPM1 
(FLIPCPM2) stehen 92 kByte für den 
ersten und 108 (110) kByte für den 
zweiten CP/M-Bereich zur Verfügung. 

FLIPSAVE und FLIPLOAD 

Möchten Sie am nächsten Tag genau an 
der Stelle Weiterarbeiten, wo Sie heute 
aufgehört haben? Kein Problem: 

Das Hilfsprogramm FLIPSAVE er¬ 
möglicht es Ihnen, die aktuelle Position 
abzuspeichern. Am nächsten Tag kön¬ 
nen Sie dann mittels FLIPLOAD die 
Position wieder einladen und weiterar- 
beiten. 

LocoScript wird augen¬ 

freundlicher! 

Wenn Sie es gewohnt sind, im 
CP/M-Bereich mit hellem Untergrund 
und dunkler Schrift zu arbeiten, was 
vielen wesentlich augenfreundlicher 
erscheint, haben Sie sich sicherlich ge¬ 
ärgert, daß dies unter LocoScript nicht 
oder nur sehr schwer realisierbar ist. 
Mit Flipper ist dies kein Problem: 
Springen Sie einfach in den CP/M-Mo¬ 
dus und schalten Sie den Monitor wie 
gewohnt mit dem PALETTE-Befehl 
um. Nach der Rückkehr in LocoScript 
ist der Monitor immer noch umge¬ 
schaltet. 

V oraussetzungen 

Für das Arbeiten mit Flipper wird ein 
Joyce PCW 8512 oder 9512 benötigt. 
Auf dem PCW 8256 läuft das Pro¬ 
gramm nur, wenn eine RAM-Erweite- 
rung vorgenommen wurde. Die vorlie¬ 
gende LocoScript-Versionsnummer 

(sie wird beim Laden von LocoScript 
eingeblendet) darf nicht unter zwei lie¬ 
gen, da das Programm mit diesen Ver¬ 
sionen nicht zusammenarbeitet. 
Empfehlenswert ist es, LocoSpell und 
LocoMail nicht mit auf die LoeoScript- 
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11 liTi MMWEEl 


IHjfiBl oder HHttliOM - Parallele Nutzung von LocoScript 2 und CP/M 
oder Mmnia;» = Parallele Nutzung von zwei CP/M-Progra*ien 


IMffl Vlf speichert die z. Zt. nicht genutzte Benutzeroberfläche 
laBmiiwl lädt eine gespeicherte Benutzeroberfläche 


BUHiMMM setzt das Gerät wieder zurück. <SHJJI>+<EXTRft>+<EXII> führen zu« Har«start 


IMUM Alle FLIPPEF-PrograsMe «üssen von CP/M aus gestartet «erden. 
(FLIPPER-Startdiskette in Laufwerk A:) 


im 




Abb. I: Durch Einßgen der Zeile “TYPE FLIPPER“ in die Datei PROFILE.SUB erscheint dieses 
Menü nach jedem Start der Flipper-Startdiskette 


Das Handbuch 

Mil einem wirklich gut durchdachten 
Handbuch (21 Seiten Umfang) wartet 
der CMZ Verlag auf, der den deut¬ 
schen Vertrieb für Flipper übernom¬ 
men hat. Nicht nur das Handbuch, son¬ 


dern auch das Programm selber ist 
deutschsprachig gehalten. 

Sehr hervorzuheben ist auch, daß in¬ 
nerhalb jedes Kapitels Hinweise und 
Warnungen hervorgehoben sind, was 
sich beim Arbeiten mit Flipper sehr po¬ 
sitiv bemerkbar macht. 


Fazit 

Das Programm Flipper ist nach einem 
gut durchdachten Konzept geschrieben 
worden. Muß der Anwender auch eini¬ 
ge Einschränkungen (LocoSpell/Loco- 
Mail) in Kauf nehmen, lohnt es sich 
doch, dieses Programm zu gebrau¬ 
chen. Unangenehm ist aufgefallen, daß 
nach der Installation von Flipper die 
Hardcopy, welche mit EXTRA-PTR 
aufgerufen wird, nicht mehr funktio¬ 
niert. 

(rs) 


Sollten Sie Interesse an diesem Programm ha¬ 
ben, wenden Sie sich bitte an nachfolgende 
Adresse: 

CMZ-Verlag 
Winrich C.-W, Clasen 
Borgswiese 9-11 
4650 Gelsenkirchen 2 

Das Programm ist zu einem Preis von DM 
128, — zu erstehen. 


Ordnung und Übersicht 
schaffen die beliebten 
DMV Sammelmappen 



Bitte Bestellkarte benutzen 


DMV Verlag • Postfach 250 • 3440 Eschwege 


PR8-SOFT 

DAS PROGRAMM FÜR DEN INTERESSIERTEN ANWENDER 

D I S C 0 L 0 G Y 

CPC DISC TOOLS 


Version J • 


Für alle CPC’s 
3 r/ - Diskette 
nur 

DM 99.- 

ECHTE DESKTOP-GRAFIK AM SCHNEIDER/AMSTRAD CPC 

M I C R 0 D E S I G N 

Für CPC 6128 (oder CPC 464/664 

mit DK-Tronics Speichererweiterung) DM 99.- 

Weitere Angebote und Spiele in unserem Katalog! 

Tel. Bestellung (24 Stunden): 0931/464414, FAX: 0931/464413 
PR8-SOFT Klaus-M. Pracht • Postfach 500 • D-8702 Margetshöchheim 



Lieferung per Nachnahme (Versandkosten DM 5,- + NN-Gebühr) oder gegen Scheck 
(+Versandk. DM 5.-). Auslandslieferungen gegen Scheck (+ Versandkosten DM10.-) 
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'Vier gewinnt’ für zwei Personen 

Wie wäre es mal wieder mit einem Spielchen? Wir hätten da was für Sie, 
nämlich das altbekannte ’Vier gewinnt’ als BASIC2-Programm. 


r~PC-Programm 


Viererbande 


Das Spiel wollen wir für diejenigen, die 
es noch nicht kennen, hier kurz erklären: 
Jeder Spieler muß abwechselnd seine 
Steine so setzen, daß insgesamt vier eine 
Reihe bilden, die diagonal, waagerecht 
oder senkrecht liegen kann. So weit, so 


gut, leider gibt es dabei das Problem, den 
Mitspieler im Auge zu behalten, damit 
seine Viererreihe nicht eher fertig ist als 
die eigene, und dies läßt sich nur durch 
störendes Dazwischensetzen erreichen. 
Problem Nummer zwo ist allerdings, daß 



der Mitspieler seinerseits dasselbe mit 
Ihren Steinen macht. Hier heißt es also 
aufgepaßt und die eigene Konzentration 
fordern. 

’Vier gewinnt’ enthält an den meisten 
Stellen Kommentarzeilen. Das Spiel 
selbst läuft unter der BASIC-Version 
1.21 auf einem PC mit CGA-Farbkarte, 
läßt sich aber durch die Kommentarzei¬ 
len leicht selbst an andere Gegebenheiten 
anpassen. Die Kommentarzeilen können 
übrigens auch weggelassen werden. 

(Matthias May/jb) 





'I 6.10.1988 I 


OPEN #1 WINDOW 1:SCREEN #1 GRAPHICS 528 FIXED, 1 

'I I 


50 FIXED 

'I geschrieben von: I 


WINDOW #1 PLACE 44; 12 

•I I 


WINDOW #1 TITLE "Vier Gewinnt" 

* I Matth 1as May I 


WINDOW #1 OPEN 

'I Burscheid X 


WINDOW #1 MOUSE 4 

•I-1 


BOX 1;1,9000,7000 COLOUR(15) FILL WITH 8 

BOX 150;200,6250,4200 FILL WITH 9 

• Alle Windows die geöffnet sein könnten, werden g 


FOR 1=1 TO 7 

eschlossen: 


FOR j=l TO 8 

FOR i=1 TO 2 


CIRCLE (1*800);(j*500),200 FILL WITH 0 

CLOSE WINDOW i’.CLOSE #1 


NEXT 

NEXT 


NEXT 

PRINT #1,AT(1;2) COLOR(4);" v v 

' Die Variablen werden definiert oder ihre Dimensi 


< 

< 

< 

< 

< 

on wird festgelegt: 


PRINT #1,AT(1;1) COLOR(1);" 1 2 3 

spie1e r = l 


4 5 6 7 

nspie1e r = 2 


PRINT #1,AT(55;3) COLOR(4);"Spie1er :" 

fehler=FALSE 


PRINT #1,AT(5 5 ; 4 ) COLOR(1);"Nr.";spie1er;" 

anfang=FALSE 


PRINT #1,AT(55;5) COLOR(7 ) ;"Sie 

DIM spa1te(8) 


PRINT #1,AT(55;6) COLOR(8);"s1nd 

DIM m(11,10) 

' Info-Window wird erstellt: 


PRINT #1,AT(5 5;7) C0L0R(9);"am 

PRINT #1,AT(55;8) COLOR(10);"Zug !! 

OPEN #2 WINDOW 2:SCREEN #2 GRAPHICS 800 FIXED, 1 


ALERT of TEXT " Vier Gewinnt Ok 

80 FIXED 


tober, 1988 by Matthias May " BUTTO 

WINDOW #2 PLACE 1;1 

WINDOW #2 TITLE "*** Info ***" 


N RETURN " Ok u 

WINDOW #2 MOUSE 2 


• Hier wird der Spieler-Chip angezeigt: 

WINDOW #2 OPEN 


CIRCLE 7300;4700,170 COLOR(spie1er) FILL WITH 8 

BOX #2,1;1,9000,7000 C0L0UR(4) FILL WITH 8 

PRINT *2 AT(28;4) FONT(3) ADJUST(36) COLOR(ll)"* 


CIRCLE 7300:4700,210 C0L0R(2) STYLE 1 

** Info ***" 


• Die Hilfsfunktion für's 'Setzen' wird 

PRINT #2 AT(15;8) FONT(3) ADJUST(20) C0L0R(14)"- 


' angezeigt: 

-Vier Gewinnt-" 


PRINT AT(55;10) COLOR{1)"Setzen Sie:" 

PRINT #2 AT(2 9; 10) F0NT(2) ADJUST(16) C0L0R(14)" 


PRINT AT(5 5;11) COLOR(2)"(1,2,3,4.5, " 

(c) Copyright 6.10.1988 

PRINT * 2 AT ( 30; 11) FONT(2) ADJUST(16) COLOR(14)" 


PRINT AT(55;12) C0L0R(2)" 6 oder 7) " 

PRINT *2 AT(30;12) FONT(2) ADJUST(16) C0L0R(14)" 


’ Das Hauptprogramm wird aufgerufen: 

geschrieben von: 

PRINT #2 AT(30;13) FONT(2) ADJUST(16) COLOR(14)" 


GOTO spiel 

Matthias May 


1 In diesem Label wird gesetzt: 

PRINT #2 AT(30;14) FONT(2) ADJUST(16) COLOR(14)" 


LABEL setzen 

PRINT *2 AT(30;15) F0NT(2) ADJUST(16) C0L0R(14)" 


' Hier wird ein Fehler-Label eingerichtet: 

Burscheid 

PRINT #2 AT(30;16) FONT(2) ADJUST(16) C0L0R(14)" 


LABEL weiter 

" 


' Die Eingabe einer Zahl zwischen 1 und 7 ' wird a 

PRINT #2 AT(11;18) FONT(2) ADJUST(16) COLOR(14)" 


bgewa rtet: 



REPEAT 

REPEAT 


REPEAT:i$=INKEY$:zahl=FALSE 

FOR 1=1 TO 2 


IF i$="1" OR i$="2" OR i$="3" OR i$="4" OR i 

PRINT *2 AT(20;19+1) COLOR(i)" Name Spieler Nr 


$= " 5 " OR i $ = " 6 " OR i$=J"7" THEN zahl =TRUE 

. " ; i ; " : " ; 


UNTIL (BUTTON(1) > -1) OR i$=CHR$(27) OR zahl 

INPUT *2 " ",name$(1); 

NEXT 


IF i$=CHR$(27) THEN GOSUB zurück 

UNTIL n ame$ (1)0"" AND name$ ( 2 ) < > " " 


x = XMOUSE-X P LACE 
y = YMOUSE-YPLACE 

OPEN #4 WINDOW 4:SCREEN #4 TEXT 16 FIXED, 2 FIXE 


UNTIL zahl OR x>0 AND x<XWIND0W AND y>0 ANO y<YW 

D 

WINDOW #4 PLACE 500;1 


INDOW 

WINDOW #4 TITLE "Spieler" 


' Die Variable '1' wird zurückgesetzt: 

WINDOW #4 OPEN 


i =0 

WINDOW #4 MOUSE 2 

PRINT #4 COLOR(1)"1 :",name$(l) 

PRINT #4 COLOR(2)"2 :",name$(2) 


IF zahl THEN 1=VAL(i$):GOTO überspringen 

Listing Viererbande 


Lisling Viererbande 
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1=x/8 
1 = ( i + 1) / 7 

nachkommas = FRAC( 1 ) 

IF nachkommas>=0.5 THEN i=INT(1+1) 

IF nachkommasCO.5 THEN 1=INT(i) 

IF 1> 7 OR i < 1 THEN GOSUB weiter 

LABEL überspringen 

' Die Variablen11ste für die Control 1abfrage wird 
angefertigt: 

spalte(l) = spalte(1)+l 

z = spa1te( 1 ) 

s = 1 

n r = spie1e r 

m ( z , s ) = n r 

anfang = TRUE 

IF nspieler=l THEN nspie1er=2 ELSE nspieler=l 
FOR x=8 TO z+1 STEP -1 

CIRCLE (s*800); (x*500) , 150 FILL WITH 8 COLOUR 

Spieler 

CIRCLE (s*800);(x*500),150 FILL WITH 8 COLOUR 

0 

NEXT x 

CIRCLE ( i*800); (spalte(i )*500),150 FILL WITH 8 C 
OLOUR Spieler 
RETURN 


IF vier=TRUE GOTO gewonnen 

IF spie1er = 1 THEN spieler=2 ELSE spieler=l 
PRINT AT(55;4) COLOR(spieler)"Nr.";spieler 
CIRCLE 7300;4700,170 COLOR(spie1er) FILL WITH 8 
CIRCLE 7300;4700,210 COLOR(nspieler) STYLE 1 

GOTO welterspielen 
LABEL gewonnen 

PRINT AT(5 5;13) COLOR(14)"Sieger ist " . 

PRINT AT(55;14) COLOR(14)"Spie 1 er Nr." 

PRINT AT(55;15) COLOR(sp1e1er);spie1er;" 

PRINT AT(55;17) COLOR(9)"»Taste*" 

BOX 6500;400,960,400 WIDTH 5 COLOR(l) 

LABEL weiterspielen 
RETURN 

Hier beginnt das Hauptprogramm: 

LABEL spiel 
REPEAT 

GOSUB setzen 
GOSUB auswerten 
UNTIL vier 

WHILE 1$< >CHR$(32):1$=INKEY$:IF botton>-l THEN i 
$=CHR$(32):WEND 


' Hier wird ein Zug zurückgesetzt: 

LABEL zurück 

IF an fang = FALSE THEN GOTO fehler 
IF spieler=l THEN spieler=2 ELSE spieler=l 
m(z,s)=0 

spalte(s)=spalte(s)-l 
FOR x=z TO 8 

CIRCLE (s*800);(x*500),150 FILL WITH 8 COLOUR 
spie 1 e r 

FOR r= 1 TO 500-.NEXT 

CIRCLE (s*800);(x*500),150 FILL WITH 8 COLOUR 

0 

NEXT 

Hier wird angezeigt, daß der Spieler erneut setz 
en darf: 

CIRCLE 7300:4700,170 COLOR(spie1er ) FILL WITH 8 
PRINT #1,AT(55;4) COLOR(1);"Nrspie1er 
1$="0" 

RETURN 

LABEL fehler 

Fehler werden hier vehlndert: 
spieler =0 
fehle r=TRUE 
GOTO ende 

Hier, beim LABEL zur Kontro11abfrage .wird kontr 
olliert, ob schon einer Vier in einer Reihe hat, u 
nd hier wird von Spieler 1 auf Spieler 2 gewechs 
eit oder umgekehrt: 

LABEL auswerten 

IF spalte(i )=8 THEN v1e r = TRUE 
n = 0 

IF z>3 THEN IF m(z-l,s)=nr THEN n=n+l:IF m(z-2,s 
) = nr THEN n=n+l:IF m(z-3,s)=nr THEN n = n+l:vier = T 
RUE 
n = 0 

IF m(z,s-1)=nr THEN n=n+l:lF m(z,s-2)=nr THEN n= 
n+1:IF m(z,s-3)=nr THEN n=n+l 

IF m(z,s+1)*n r THEN n=n+l:IF m(z,s+2)=nr THEN n= 
n+1:IF m(z,s+3)=nr THEN n=n+l 
IF n > 2 THEN vier = TRUE 
n = 0 

IF m(z+l,s-l)=nr THEN n=n+l:IF m(z+2,s-2)=nr THE 
N n=n+l:IF m(z+3,s-3)=nr THEN n=n+l 

IF m(z-l,s+l)=nr THEN n=n+l:IF m(z-2,s+2)=nr THE 
N n=n+1:IF m(z-3,s+3)=nr THEN n=n+l 
IF n > 2 THEN vier = TRUE 
n = 0 

IF m(z-1,s-1)=nr THEN n=rt+l:IF m(z-2,s-2)=nr THE 
N n = n + l:IF m(z-3,s-3)=nr THEN n=n+l 

IF m(z+1,s+1)=n r THEN n=n+l:IF m(z+2,s+2)=nr THE 
N n=n+1:IF m(z+3,s+3)=nr THEN n=n+l 
IF n > 2 THEN vier = TRUE 


LABEL ende 

IF spieler=l THEN GOSUB sieg 
IF spie1e r = 2 THEN GOSUB sieg 

IF fehle r = TRUE THEN ALERT of TEXT " Fehler " BUT 
TON RETURN " Ok " 

FOR i=1 TO 4000 : NEXT 
SYSTEM 

LABEL sieg 

IF spalte(i)=8 THEN ax=i:ex=i:ay=8:ey=l:GOTO rea 
dy 

IF z > 3 THEN IF m(z-l,s) = nr THEN IF m(z-2,s) = nr T 
HEN IF m(z-3,s)=nr THEN ey=z-3:ax=s:ex=s:ay=z:GOTO 
ready 

n = 0 

ax = s:IF m(z,s-1)=nr THEN n = n + l:ax = s-l:IF m(z,s-2 
) =n r THEN n = n + l:ax = s-2:IF m(z,s-3)=nr THEN n = n+l:a 
x = s-3 

ex=s:IF m(z,s+l)=nr THEN n=n+l:ex=s+l:IF m(z,s+2 
)=nr THEN n=n+1:ex=s+2:IF m(z,s+3)=nr THEN n=n+l:e 
x = s + 3 

IF n>2 THEN ay=z:ey=z:GOTO ready 
n = 0 

ay=z:ax=s:IF m(z+1,s-1)=nr THEN n=n+l:ay=z+1:ax= 
s-1:IF m(z+2,s-2)=nr THEN n=n+l:ay=z+2:ax=s-2:IF m 
(z+3,s-3)=nr THEN n=n+1:ay=z+3:ax=s-3 

ey= z:ex = s:IF m{z-1,s+1) = nr THEN n = n + l:ey=z-l:ex = 
s+l:IF m(z-2,s+2)=nr THEN n=n+1:ey=z-2:ex=z+2:IF m 
(z-3,s+3)=nr THEN n=n+l:ey=z-3:ex=s+3 
IF n >2 THEN GOTO ready 

n = 0 

ay = z:ax= s:IF m(z-1,s-1)=nr THEN n = n+l:ay = z-l:ax = 
s-1: IF m(z-2,s-2)=nr THEN n = n+1:ay = z-2:ax = s-2:IF m 
(z-3,s-3)=nr THEN n=n+1:ay=z-3:ax=s-3 

ey=z:ex=s:IF m!z+l,s+l)=nr THEN n=n+1:ey=z+1:ex= 
s+1:IF m(z + 2,s + 2)=nr THEN n = n+1 :ey = z + 2:ex = s + 2:IF m 
(z + 3,s+3) = n r THEN n = n+1:ey = z + 3:ex = s + 3 
IF n>2 THEN GOTO ready 

LABEL ready 

LINE (ax*800);(ay*500),(ex*800);(ey*500) WIDTH 7 S 
TYLE 2 COLOR(12) 

IF spieler=l THEN ALERT of TEXT " Gewonnen hat s 
pieler Nr.l ...!" BUTTON RETURN " Ok 

IF spieler=2 THEN ALERT of TEXT " Gewonnen hat s 
pieler Nr.2 ...!" BUTTON RETURN " Ok 
RETURN 
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Kontoauszug auf dem 
Bildschirm 

’Spreadsheet’ fürs Konto usw. 

Kontoführungen und -Übersichten gehören mit zu den 
Lieblingsbeschäftigungen derjenigen, die am Ende des 
Geldes noch zuviel Monat übrig haben. Hierfür bietet 
sich unser Programm ’Spreadsheet’ an, ein elektroni¬ 
sches Arbeitsblatt für diesen und noch andere Fälle. 



So können demnächst Ihre Kontoführungen aussehen, statt Papier und Blei¬ 
stift alles sauber abgespeichert auf Diskette 


Das vorliegende Spreadsheet-Pro- 
gramm ist für die monatliche Führung 
von Haushaltskonten auf dem Schnei¬ 
der PC 1512 in BASIC2 geschrieben 
worden. Durch die einfache Bedienung 
mit Hilfe von Menüs bzw. Untermenüs 
kann sich jedermann innerhalb kurzer 
Zeit mit dem Programm vertraut ma¬ 
chen. 

Die Beschreibung zum 
Programm 

Die Eingaben werden meistens ohne 
Betätigung der Return-Taste von dem 
Programm akzeptiert. 

Für die Ausgaben stehen 13 Zeilen, für 
die Einnahmen drei Zeilen zur Verfü¬ 
gung. In der ersten Spalte werden die 
einzelnen Posten im Klartext eingege¬ 
ben. Um den Programmablauf nicht 
unnötig zu verlangsamen, wird die Ta¬ 
belle nach der Eingabe der einzelnen 
Beträge nicht jedesmal durchgerech¬ 
net. Die Berechnung der Tabelle kann 
jedoch durch den entsprechenden Be¬ 


fehl jederzeit veranlaßt werden. Beim 
Laden erfolgt die Berechnung der Ta¬ 
belle automatisch. 

Die Return-Taste bereitet die Eingabe 
von Daten über die Tastatur vor. Da 
der BASIC2-Interpreter bei der Einga¬ 
be von Zahlen nur den Dezimalpunkt 
akzeptiert, müssen die einzelnen Beträ¬ 
ge mit Dezimalpunkt eingegeben wer¬ 
den. Nach erfolgter Eingabe werden 
sie jedoch mit Komma dargestellt. 

Die einzelnen Tabellenelemente (Ein¬ 
gabefelder) funktionieren so, wie etwa 
der saldierende Speicher eines Ta¬ 
schenrechners, das heißt, die in die 
gleiche Zeile eingegebenen Beträge 
(Kosten oder Einnahmen gleicher Art) 
werden aufaddiert. 

Die letzte Zeile gibt Auskunft über die 
monatlichen Salden. Es können gleich¬ 
zeitig sechs Monate dargestellt 
werden. 

Nach dem Starten fragt das Programm 
nach dem Kalenderjahr, das zwei- oder 
vierstellig eingegeben werden kann. 
Beim Abspeichern und Laden erfolgt 


die Namensgebung der Files automa¬ 
tisch (SALDO + die zweistellige Jah¬ 
reszahl). Dadurch wird das Laden und 
das Abspeichern von Dateien auch 
durch einen einzigen Tastendruck akti¬ 
viert. 

Die einzelnen Menüpunkte werden 
durch einfaches Drücken der Taste des 
jeweiligen Anfangsbuchstaben aufge¬ 
rufen. Die erste Menü-Ebene bietet ein 
weiteres Untermenü, Hilfe und die 
Möglichkeit an, das Programm zu 
beenden. Das Untermenü ermöglicht 
das Abspeichern und Laden von Datei¬ 
en, die Neuberechnung der Tabelle so¬ 
wie den Zeitraum Wechsel. 

Auf einem Farbmonitor werden die zu¬ 
sammenhängenden Felder beziehungs¬ 
weise Zeilen durch unterschiedliche 
Hintergrundfarben hervorgehoben. 
Das Programm wurde unter der 
BASIC2-Version 1.21 geschrieben, es 
kann allerdings an die darunterliegen¬ 
den Versionen angepaßt werden. 

(Zoltan Cserey/jb) 


REM spreadsheet 

REM programmed by Z. Cserey 

REM 

REM Initialisierung 
REM 

ON ERROR GOTO neustart 

ml=l:m2=6:DIM m$(12),ma(12),sa(14),me(12) 

DIM kosten$(1 TO 14) FIXED 60: 

RECORD kosten; ausg$ FIXED 12,posten(l TO 12) INTE 
GER 

DIM einnahm$(1 TO 3) FIXED 60: 

RECORD e1nm;e1n$ FIXED 12,posten(l TO 12) INTEGER 
FOR 1=1 TO 14:kosten$(i).kosten.ausg$=NEXT: 
FOR 1=1 TO 3:einnahm$(1 ).einm.e1n$=" — “:NEXT 
sp=l:z=2:co=l:1a=14 


Listing Spreadsheet 


FOR a=1 TO 12:READ m$(a):NEXT 
FOR i=1 TO 4 
CLOSE WINDOW i:CLOSE #i 
NEXT 

OPEN #1 WINDOW 1:STREAM #1 

SCREEN #1 GRAPHICS XDEVICE FIXED,YUSABLE FIXED: 
WINDOW PLACE 0,10:WIND0W FULL:SET MODE 1 C0L0UR(4) 
REM 

REM Kalenderjahr 
REM 

c=l:GOSUB paper:c=3:flag1=0 

LABEL neustart 

IF f1ag1=1 THEN RUN: 

LABEL jahr 

j ah r$="":1e$=" ":flagl=l 

PRINT AT(11;10) "Bitte Kalenderjahr (zwei- oder vi 
ersteilig) eingeben!" 
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Ein Abonnement 
ist praktisch und gewährt 
zusätzlich noch Preisvorteile. 

d International kostet im Abonnement; 

Im Inland bzw. West-Berlin: 6 Ausg. = 

12 Ausg. = 

Im europäischen Ausland: 6 
Im außereuropäischen 


Widerrufsrecht: 

Wir garantieren jedem 
Abonnenten das 
Recht, seine Bestel¬ 
lung innerhalb einer 
Woche nach Abschluß 
schriftlich zu widerru¬ 
fen. Die rechtzeitige 
Absendung des Wider¬ 
rufschreibens genügt 
zur Fristwahrung. 


Bitte benutzen Sie 
die Bestellkarte. 


/DjMK 

/ / /DfXep- null 

ModlenvorUg 


ENI 

Lesespaß 

mit Preisvorteil 


DMV-Verla 


Postfach 250 3440 Eschwege 
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PRINT AT (30;12) " Kalenderjahr 1e$: 

LOCATE 43; 12:INPUT jahr$:feh 1er = VAL(jahr$) 

IF LEN(jahr$)<2 THEN GOTO neustart 
IF LEN(jahr$)>2 THEN jahr$=RIGHT$(jahr$,2): 

SET MODE 2 COLOR(O) 

LABEL maske 

GOSUB paper:GOSUB menu1ine:GOSUB ml 1 ne:GOSU8 monat 
e:GOSUB kopfzelle: 

GOSUB menuel:GOSUB berechnen:sp=1:z=2:GOSUB marke 

LABEL pfeile 

WINDOW CURSOR ON:GRAPHICS CURSOR 2 
REPEAT 

REPEAT:code=INKEY:UNTIL code<>-l 


IF 

code=328 

THEN 

GOSUB 

hoch 

IF 

code=336 

THEN 

GOSUB 

runter 

IF 

code=333 

THEN 

GOSUB 

rechts 

IF 

code=331 

THEN 

GOSUB 

links 

IF 

code=&6d 

THEN 

GOSUB 

menue 

IF 

code=&68 

THEN 

GOSUB 

hi 1 fe 

IF 

code=&65 

THEN 

GOSUB 

ende 

UNTIL code=13 





REM 

REM Eingabe 
REM 

IF sp=l THEN GOSUB posten ELSE GOSUB zahleing 
GOTO pfei 1 e 

LABEL menue 

WINDOW CURSOR OFF 

GOSUB mline:GOSUB untermenue 

LABEL abfrage 

REPEAT: ko=INKEY:UNTIL koo-1 
IF kO=&74 THEN q=l 
IF kO=&6c THEN q = 2 
IF ko=&61 THEN q=3 
IF kO=&7a THEN q = 4 

IF kO< >&74 AND kO< >&6c AND ko<>461 AND ko<>&7a TH 
EN PRINT CHR$(7);:GOTO abfrage 

ON q GOSUB berechnen,1aden,abspeichern,zeltraumwec 
hsel 

IF q=2 OR q=4 THEN GOTO maske 
q = 0 

GOSUB ml Ine:GOSUB menuel:WINDOW CURSOR ON:GRAPHICS 
CURSOR 2:sp=l:z=2: 

GOSUB marke 
RETURN 

LABEL köpfzel1e 

s= 3:FOR i=ml TO ml + 5 
s = s + 9 

zi=CINT(4-LEN(m$(i-(12 AND 1>12))) MOD 2): 

Zi$ = STRING$(z1 , " ) +m$(i-(12 AND i > 1 2 ) ) 

LOCATE s;1:PRINT zi$:NEXT 

SET C0L0R(6):LOCATE 2;1:PRINT M Posten:":LOCATE 69 
; 1:PRINT "Summe 1-12:" 

RETURN 

LABEL ausgaben 

poz= 1 

FOR i=1 TO 1a:PRINT COLOUR(O) AT (2;poz+i) kosten$ 
(1 ) . kosten.ausg$; 
s=6:FOR a=ml TO m2 
3=s + 9 

IF kOSten$(i).kosten.posten(a-(12 AND a>12))=0 THE 
N PRINT COLOR(l) AT (s+4;poz+1) 

GOTO 470 
LOCATE s;poz+i 

PRINT COLOUR(1) USING "####.##";kosten$(1).kosten. 
posten(a-{12 AND a>12))/100; 

470NEXT:NEXT:RETURN 

LABEL einnahme 

FOR 1=1 TO 3:LOCATE 2;16+1:PRINT COLOR(IO) einnahm 
$(1).e1nm.e1n$; 
s=6:FOR a=ml TO m2 
3= s + 9 

IF einnahm$(1).einm.posten(a-(12 AND a>12))=0 THEN 
LOCATE 3+4;16+1: 

PRINT COLOR(l) GOTO 550 

LOCATE 3;16+1 

PRINT COLOR(l) USING "####.##";einnahm$(i).einm.po 
sten(a-(12 AND a>12))/100; 

550NEXT:NEXT:RETURN 

LABEL summeausg 

q a = 0:FOR 1 = 1 TO 14:sa(i )=0:NEXT 
FOR 1=1 TO 1a 
FOR a= 1 TO 12 

sa(1)=sa(1)+kosten$(i).kosten.posten(a )/100 
NEXT 



qa=qa+sa( i ) 
poz= 1 

IF sa(1)=0 THEN LOCATE 74;poz+i:PRINT COLOUR(l) "- 
":GOTO 670 

LOCATE 69;poz+i:PRINT COLOUR(l) USING "#####.##";s 
a( i ) ; 

670NEXT 

RETURN 

LABßL summeein 

qe=0:FOR 1=1 TO 3:se(i ) =0:NEXT 
FOR i=1 TO 3 
FOR a=l TO 12 

se(1)=se(1 ) + e1nnahm$(i),einm.posten(a)/100 
NEXT 

qe=qe+se(1) 

IF se(i)=0 THEN LOCATE 74I16+i:PRINT COLOR(l) 

:GOTO 800 
LOCATE 69;16+i 

PRINT COLOR(l) USING "#####.##";ABS(se(i));: 

IF se C 1 ) < 0 THEN PRINT AT(74;19+1) 

800NEXT:RETURN 

LABEL summeinausg 

s=5:FOR 1=1 TO 12:ma(i)=0:me(i)=0:NEXT 
LOCATE 2;16:PRINT C0L0UR(5) "Ausgaben : 

FOR a=1 TO 12 
FOR 1=1 TO 14 

ma(a)=ma(a)+kOsten$(1).kosten.posten(a)/100 
NEXT:NEXT 
FOR a=ml TO ml+5 
s= s+9 

LOCATE s ; 1 6 : PRINT USING "#####.##'';ma(a-( 12 AND a> 

12 ) ) ; 

NEXT 
s = s + 9 

LOCATE s;16:PRINT USING "######.##-";qa; 
s=5:SET MODE 2 

LOCATE 2;20:PRINT COLOUR(5) "Einnahmen :" 

FOR a=l TO 12 
FOR 1=1 TO 3 

me(a)=me(a)+einnahm$(i).einm.posten(a )/100 
NEXT:NEXT 
FOR a=ml TO ml+5 
s = s + 9 

LOCATE s;20:PRINT USING "#####.##-";me(a-(12 AND a 

> 12 ) ); 

NEXT 


s = S + 9 

LOCATE s;20:PRINT USING "######.##-";qe; 

LINE 1290,500,1290;4780 COLOUR(0):LI NE 6953;500,69 
53;4780 COLOUR(0) 

FOR 1=12 TO 17 STEP 5:LINE 1;250,1;1570 COLOUR(O): 
LINE 8149+1;250,8149+1;4670 COLOUR(6):NEXT 
RETURN 

LABEL hoch 

z = z-(1 AND z >2):IF z=16 THEN z = 15 
LOCATE sp;z:RETURN 

LABEL runter 

Z = Z+ (1 AND Z <19) :IF z=16 THEN z = 17 
LOCATE sp;z:RETURN 

LABEL rechts 

sp=sp+(4 AND sp=1)+(9 AND sp>=l):IF sp>67 THEN sp= 
Sp-9 

LOCATE sp;z:RETURN 

LABEL links 

sp=sp-(13 AND sp-13=1)-(9 AND sp> = 23):LOCATE sp;z: 

RETURN 

RETURN 

mo={((sp-14)/9)+m):IF mo>12 THEN mo=mo-12 

IF z<16 THEN zi=z-l:zw=ag(zi ,mo ) ELSE zi=z-16:zw = e 


(zi,mo) 

LOCATE #1,sp;z:PRINT #1,USING "#####.##";ABS(zw):L 
OCATE #1,sp;z:PRINT #1,"-": 

LOCATE sp+8;z:PRINT "-" 

GOSUB 1560 
1260RETURN 


LABEL untermenue 

SET COLOR(O):LOCATE 3;22:PRINT MODE (4) " T "; MOD 

E (2) "abelle berechnen“;: 

PRINT MODE(4) AT(28;22) " L ";MODE (2) "aden"; 

:PRINT MODE (4) AT(41;22) " A "; MODE (2) "bspeich 
ern";: 

PRINT MODE (4) AT(60;22) " Z ";MODE(2) "eitraumwec 

hsel " ; 

RETURN 
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LABEL menuel 

SET COLOR(O):PRINT AT (26;22) MODE(4) " M ";MOOE(2 
) "enue" ;: 

PRINT AT ( 39 ; 22 ) MODEM) " H ";MODE(2) "ilfe";: 
PRINT AT( 5 2 ; 2 2) MODEM) " E ";MODE(2) "nde " ; :RE TUR 
N 

LABEL posten 

verbot$="0123456789":ew$="":os=sp+l:runter$=STRIN 

G$(11," ") 

IF 2 <16 THEN zl=z-l:zw$=kosten$ ( z i).kosten. ausg$ E 
LSE 2i=2-16: 

2 w$=e 1 nnahm$(zi),einm,ein$ 

PRINT AT ( os ; z ) MODEM) COLOUR(O) runte r$ ; : LOCATE o 
s; z 

REPEAT 

tast$=INPUT$(1) 

IF INSTR(verbot$ , tast$)< >0 THEN PRINT CHR$(7);:G 
OTO weiter 

i PRINT MODE(2) COLOUR(l) tast$; 
ew$=ew$+tast$ 


LABEL weiter 

UNTIL tast$=CHR$(13) OR LEN(ew$)=ll 
IF 2>16 THEN co = 3 ELSE CO =12 

PRINT AT(os; 2 ) M0DE(4) COLOUR (co) runter$:PRI NT A 
T(os; 2 ) COLOUR(0) MOOE(2) ew$: 

LOCATE sp;z:ew$ = LEFT$(ew$, (LEN(ew$)-l) ) 

IF 2 <16 THEN kosten$( 2 i ).kosten.ausg$=ew$ ELSE ein 
nahm$(z 1 ).einm.e 1 n$=ew$ 

RETURN 

LABEL zahl eing 


IF z>16 THEN C0=13 ELSE co=3 

IF 2 <16 THEN 2 i=z-l ELSE zi=z-16 

mo=(((sp-14)/9)+ml):IF mo>12 THEN mo=mo-12 

eng$ = "0123456789.":2w$ = STRING$(8," "):sz = 0:sw = 0 : nu 

m$= “ " 

PRINT AT ( sp ; 2 ) MODEM) COLOUR(O) 2w$;:L0CATE sp;z 
REPEAT 

tast$=INPUT$(1 ) 

IF tast$="1 " THEN f1ag = 1:GOTO loesch 
IF INSTR(eng$,tast$)=0 THEN PRINT CHR$(7) ; :tast$ 
="":GOTO naechste 

IF tast$="." THEN PRINT COLOUR(l) AT(sp + 5;z) " , " 
:sz=5:LOCATE sp+6;z:GOTO naechste 

PRINT MODE(2) COLOUR(l) tast$;:sz=S2+1 

LABEL naechste 

num$=num$+tast$ 

UNTIL s2 = 7 
sw=VAL(num$)*100 

IF z <17 THEN kd=kosten$(zi ).kosten.posten(mo) ELSE 
bv=einnahm$(zi).einm.posten(mo) 

IF z<17 THEN kd=kd + sw:sw=kd ELSE bv=bv + sw:sw = bv 
IF z<17 THEN kosten$(zi).kosten.posten(mo)=kd ELSE 
einnahm$(zi).einm.posten(mo)=bv 
PRINT AT ( sp ; z ) MODEM) COLOUR(co) zw$: 

PRINT COLOUR(1) AT(sp+l;z) USING "####.##";sw/100: 
LOCATE sp-1;2:GOTO pfeile 

LABEL loesch 

IF flag=l AND z<17 THEN kosten$(zi).kosten.posten( 
mo)=0 ELSE IF flag=l THEN einnahm$( 2 i).einm.posten 
(mo)=0: 

IF flag=l THEN sw=0:f1ag=0:PRINT AT(sp;z) MODE(4) 
COLOUR(co) zw$: 

PRINT COLOR(l) AT(sp+5;z) "-":LOCATE sp;z:RETURN 

LABEL 1aden 

x$="sa1do"+jahr$ 

OpIn #5 INPUT x$: 

FOR i=l TO 14 

INPUT #5,kosten$(1).kosten.ausg$ 

FOR J = 1 TO 12 

INPUT #5,kosten$(i).kosten.posten(j) 

NEXT j:NEXT i 
FOR i=1 TO 3 

INPUT #5,einnahm$(i).einm.ein$ 

FOR j = l TO 12 

INPUT #5,einnahm$(1).einm.posten(j ) 

NEXT j:NEXT 1 
CLOSE #5 
RETURN 

LABEL abspeichern 

x$="saldo"+jahr$ 

OPEN #5 OUTPUT x$ 

FOR 1=1 TO 14 

PRINT #5, kosten$(i).kosten.ausg$ 

FOR j=l TO 12 


PRINT #5, kosten?(1).kosten.posten(j) 

NEXT j:NEXT 1 
FOR i=1 TO 3 

PRINT #5,einnahm$(i).einm.ein$ 

FOR j=l TO 12 

PRINT #5,einnahm$(1).einm.posten(j) 

NEXT j:NEXT 1 
CLOSE #5:RETURN 

LABEL paper 

WINDOW #1 OPEN:WINDOW #1 TITLE " HAUSHALTSKONTO": 
BOX 0;0,8205,5000 COLOUR(c) FILL WITH 8: 

LINE 10;4760,8170;4760 COLOUR(6):RETURN 

LABEL menuline 

BOX 1310;500,5600,1100 COLOUR(13) FILL WITH 8: 

BOX 0;1600,1310,3160 COLOUR(12) FILL WITH 8: 

BOX 0:4800,8200,215 COLOR (10) FILL WITH 8 

LABEL sumclear 

BOX 6950;495,1310,4285 COLOR (6) FILL WITH 8 
BOX 0;480,8200,215 COLOR(IO) FILL WITH 8: 

BOX 0:1380,8200,215 COLOR(IO) FILL WITH 8: 

BOX 0:265,8200,215 COLOR(l) FILL WITH 8:RETURN 

LABEL ml ine 

BOX 0;0,8200,250 COLOUR(12) FILL WITH 8:RETURN 

LABEL zeitraumwechsel 

zw$=" ":num$="" 

GOSUB ml Ine:PRINT AT(2;22) "Bitte (zweistellig) di 
e Nummer des ersten Anzeigemonats angeben 
s p= 6 9:z = 22 

PRINT A T ( s p ; z ) MODEM) COLOUR(O) zw$;:LOCATE sp;z 

WINDOW CURSOR ON 

REPEAT 

num$=INPUT$(2):IF VAL(num$)<l OR VAL(num$)>13 TH 
EN GOTO zeitraumwechsel 
UNTIL VAL(num$)>0 AND VAL(mum$)<13 

PRINT MODE(2) COLOUR(l) num$;:WINDOW CURSOR OFF 
ml=VAL(num$):IF ml=0 THEN ml=l 
m2=ml+5:IF m2>12 THEN m2=m2-12 
IF m2<ml THEN m2=12+m2 
RETURN 

LABEL fehler 

num$="":PRINT CHR$(7);:RETURN 

LABEL marke 

LOCATE sp;z:RETURN 

REM datas 

DATA Januar,Februar," Mär 2 "," April"," Mai"," Ju 
ni"," Juli", August,September," Oktober",November, 
Dezembe r 

LABEL monate 

IF m2 <ml THEN m2=(12+m2) 

z$=“ "+m$(ml)+" bis "+m$(m2-(12 AND m2>12))+" "+ja 
hr$+" " 

WINDOW TITLE "HAUSHALTSKONTO"+z$ 

RETURN 

LABEL berechnen 

WINDOW CURSOR OFF 

GOSUB sumclear:GOSUB ausgaben:GOSUB einnahme:GOSUB 
summeausg:GOSUB summeein: 

GOSUB summe1nausg:GOSUB saldo:PRINT CHR$(7);:RETUR 
N 

LABEL hi 1fe 

but=ALERT 1 TEXT "Eingabefeld mit den Pfeil- und R 
eturn-","Tasten auswaeh1en.Zah1ene1ngabe erfolgt", 
"zweistellig hinter dem 

Dezimalpunxt.","Falsche Eingabe mit RETURN + <1> 1 
oeschen" BUTTON RETURN "weiter mit RETURN" 

RETURN 

LABEL ende 

but=ALERT 2 TEXT "Moechten Sie das Programm"," wl 
rk1 Ich beenden ?" BUTTON "N E I N",RETURN "JA" 
IF but=2 THEN END ELSE RETURN 

LABEL saldo 

PRINT AT(2;21) C0L0R(6) "Salden :" 
s = 5 

FOR a=ml TO ml+5 
s = s+9 

LOCATE s;21:PRI NT C0L0R(6) USING "#####.##-";me(a- 
(12 AND a>12))-ma(a-(12 AND a>12)); 

NEXT 
s = s + 9 

LOCATE S;21:PRINT COLOR(6) USING "*#####.##-";qe- 

qa; 

RETURN 
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Bäumchen, 
Wechsel dich 


oder Wie man sich mit dem 
COPY-Befehl Arbeit erspart 


Die Idee zu diesem Artikel kam mir während des Arbei- 
tens mit GEM und BASIC2. An meinem Arbeitsplatz 
steht ein schöner neuer Amstrad PC 2086 mit VGA- 
Farbmonitor und allem Zubehör, kurz und gut, ein 
Computer zum Neidisch werden. Leider gab es aber 
eben bei GEM ein kleines Problem. 
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Die Installation von GEM auf einem 
2086 läuft genauso ab, wie man es vom 
1512/1640 kennt, auch BASIC2 läßt 
sich problemlos betreiben. Da der 2086 
von sich aus Text im EGA-Modus auf 
dem Monitor zeigt, wird dieser Modus 
natürlich auch für GEM gewählt und in 
der GEM3.BAT, der Start-Batch-Da- 
tei, installiert. So weit, so gut. 

Unter BASIC2 geschieht auch nichts 
Aufregendes, jedenfalls so lange nicht, 
bis man das erste Programm startet, 
daß unter CGA geschrieben wurde. 
Jetzt gibt es zwei ’Erfolgs’möglichkei- 
ten — entweder sieht der Bildschirm 
von den Koordinaten her etwas seltsam 
aus, oder das Programm bricht gleich 
mit einem 'Koordinate außerhalb des 
virtuellen Bildschirms’ ab. 

Was tut also der streßgeplagte Redak¬ 
teur? Er geht wieder raus aus BASIC2, 
beendet GEM, editiert die 
GEM3.BAT, ändert den EGA-Aufruf 
in einen CGA-Aufruf, speichert 
GEM3.BAT ab, ruft GEM auf, startet 
BASIC2, und wenn die Windows von 
BASIC2 auf dem Monitor erscheinen, 
ist inzwischen der Mond aufgegangen, 
und es ist Schlafenszeit. 

Möglichkeit zwei: Man editiert das 
Programm, ändert die Zeilen, die den 
Bildschirm festlegen auf die neuen 
Werte um, stellt fest, daß es so einfach 
nicht geht, ändert wieder um, und der 
Mond schien helle... 

Na gut, Übertreibung ist das halbe Le¬ 
ben, aber wenn Sie mehrmals zwischen 
zwei Grafikkarten-Modi hin- und her¬ 
springen müssen, kommt recht bald der 
Moment, wo Sie das heulende Elend 
bekommen. Selbst der Einsatz einer 
Festplatte hilft einem nicht darüber 
hinweg, und wie müssen sich Besitzer 
von ’nur’ einem oder zwei Laufwerken 
erst Vorkommen? 

Richtig, wenn man sich ein bißchen im 
MS-DOS umsieht, kommt man auf 
eine, zwar schrecklich einfache, aber 


dafür geniale Lösung, die sich zudem 
noch auf viele andere Fälle anwenden 
läßt. Die Lösung heißt ’COPY’. 

Wo ein Wille ist, ist auch 
ein Weg 

Sehen wir uns doch dazu einmal die 
GEM3.BAT an. Dort wird die jeweili¬ 
ge Grafikkarte durch Kopieren der 
.ASS-Datei in die ASSIGN.SYS-Datei 
installiert. Wenden wir nun die gleiche 
Taktik für unser Problem an: Zuerst er¬ 
stellen wir zwei neue GEM3-Dateien 
durch Kopieren: 

(Wir gehen hier vom Laufwerk C: 
(Festplatte) aus. Sie müssen dann das 
für Sie gültige Laufwerk eintragen.) 

C > COPY GEMSTART \ 
GEM3.BATGEM- 
START \ GEM3.EGA 
C > COPY GEMSTART \ 
GEM3.BAT GEMSTART \ 
GEM3.CGA 

Nach Ausführung befinden sich im Un¬ 
terverzeichnis GEMSTART nun drei 
gleiche GEM3-Batches, allerdings mit 
unterschiedlichen Namen. Nun möch¬ 
ten wir ja gerne (ob Sie das alle möch¬ 
ten, nehme ich mal so an), daß unser 
schöner EGA-Rechner ab und zu in die 
Niederungen der CGA absteigt (nicht 
schimpfen, liebe CGAner). Deshalb 
editieren wir zuerst die neue 
GEM3.EGA (am besten mit RPED, 
andere Editoren gehen natürlich auch), 
gehen mit dem Cursor in die Zeile, in 

der das Label :MAKE_ASSIGN steht 

und schreiben eine neue Zeile darun¬ 
ter, mit der Syntax GOTO ECD350. 
Dann speichern wir die Batch-Datei 
wieder ab. 

Fast das gleiche machen wir nun mit 
der GEM3.CGA, nur das wir hier statt 
ECD350 ein GOTO CDCOLOR ein- 
setzen. Danach wird wieder abgespei¬ 
chert. 


Jetzt kommt die grundlegende Ände¬ 
rung. Wir legen uns zwei neue GEM- 
Dateien an, und zwar eine GEM- 
EGA.BAT und eine GEMCGA.BAT. 
Die GEMEGA.BAT hat folgende 
Zeilen: 

1 ECHO OFF (nicht unbedingt 

notwendig) 

2 COPY GEMSTART \GEM3. EGA 
GEMSTART \ GEM3 .BAT 

3 GEM 

Die Zeilen für die GEMCGA sehen 
dementsprechend so aus: 

1 ECHO OFF 

2 COPY GEMSTART\ GEM3.CGA 
GEMSTART \ GEM3.BAT 

3 GEM 

Natürlich dürfen die Zeilennummern 
nicht abgetippt werden, sie sind nur zu 
besseren Übersicht gedacht. 

Nach Aufruf von C>GEMEGA oder 
C> GEMCGA wird nur der entspre¬ 
chende Bildschirmtreiber installiert, 
ohne daß man mehrmals das Pro¬ 
gramm, die Verzeichnisse oder sonsti¬ 
ges wechseln muß. 

Was kann ich denn jetzt 

damit anfangen? 

Diese Frage ist erst einmal berechtigt. 
Es geht ja auch gar nicht um GEM, 
sondern um die Möglichkeit, verschie¬ 
dene mögliche Programmaufrufe eines 
einzigen Programms zu vereinfachen, 
und hier bietet sich der COPY-Befehl 
und die Abarbeitung von Batch-Datei¬ 
en geradezu an. Ob es nun Druckertrei¬ 
ber für verschiedene Drucker sind oder 
Laufwerks-Konfigurationen, das Anle¬ 
gen verschiedener, durch unterschied¬ 
liche Parameter festgelegter CONFIG- 
Dateien, irgendwo ergibt sich garan¬ 
tiert die Möglichkeit, sich die Arbeit 
am PC zu erleichtern, und das noch 
dazu, wo alle Welt von Arbeitszeitver¬ 
kürzung redet. 
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Einzelbezugspreis für OATABOX: 

PCW - 3“-Disk. PC - 5 1/4“-Disk. 


2«.- DM (unverbindliche Preisempfehlung) 

Wenn Sie über den DMV-Beslellsorvlce bestellen, gilt folgendes. 


Inlond: 



Enzelprel» 

24,- DM Einzelpreis 

24.- DM 

ngl. Versandtanten 

4,- DM ngl. Vsrsandfcoslen 

a- dm 

Endprel« 

28,- DM Endprel« 

30,- OM 


Das Databox Abo kostet: 

Als Diskette für 1/2 Jahr (6 Lieferungen): 

Im Inland und West-Berlin. 150,- DM 

Im europäischen Ausland. 160,- DM 

Im außereuropäischen Ausland. 180,- DM 


Als Diskette für 1 Jahr (12 Lieferungen): 

Im Inland und West-Berlin. 300, - DM 

Im europäjschen Ausland. 320, - DM 

Im außereuropäischen Ausland... 360,- DM 

Bitte benutzen Sie für Ihre Bestellung die 
Abo-Karte. 

Zahlungsweise: 

Am einfachsten per Vorkasse (Verrechnungs¬ 
scheck) oder als Nachnahme zuzüglich der 
Nachnahmegebühr. 

(Bei Lieferungen ins Ausland ist Nachnahme 
nicht möglich) 


Widerrufsrecht: 

Wir garantieren jedem 
Abonnenten das Recht, 
seine Bestellung inner¬ 
halb einer Woche nach 
Abschluß schriftlich beim 
DMV-Verlag, Postfach 
250, 3440 Eschwege 
zu widerrufen. Die recht¬ 
zeitige Absendung des 
Widerrufsschreibens ge¬ 
nügt zur Fristwahrung. 


DMV-Verlag ■ Postfach 250 ■ 3440 Eschwege 

Bitte Bestellkarte benutzen 


■ 
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Der Software-Laden 

Aktuelles aus dem Bereich 
Public Domain/Shareware 

An dieser Stelle wollen wir Sie, liebe Leser, über aktuelle Programme infor¬ 
mieren, die es bei Public-Domain und Shareware-Anbietern zu beziehen 
gibt. Da es gerade im PC-Bereich eine unüberschaubare Menge an entspre¬ 
chenden Programmen gibt, versteht es sich von selbst, daß wir hier nur auf 
vereinzelte eingehen können. Wir glauben jedoch. Ihnen hier eine gesunde 
Mischung (von jedem etwas, aber davon nicht zuviel) zu bieten. Aber genug 
der Vorrede, fangen wir doch einfach einmal an. 


Jeder, der eine Festplatte sein eigen 
nennt, weiß, wie man .sich fühlt, wenn 
man feststellen muß, daß gerade das 
wichtigste Stück des PC just in dem 
Augenblick, wo man es am dringensten 
braucht, seinen Geist aufgibt. 

’FLASHBAK’ - die Rettung 
für Festplattenbesitzer 

Nachdem der erste Ohnmachtsanfall 
vorüber ist, schimpft man sich erst ein¬ 
mal einen Narren, weil man es wieder 
versäumt hat, rechtzeitig eine Backup 
der Platte auf Disketten anzulegen. Da¬ 
mit es erst gar nicht soweit kommt, 
kann man bei der Computer Solutions 
GmbH das Backup-Programm ’Flash- 
bak’, ein Shareware-Programm, be¬ 
kommen. ’Flashbak’ legt eine komplet¬ 
te Backup aller auf Festplatte vorhan¬ 
denen Files und Directories auf Disket¬ 
ten ab. Dabei werden die Unterver¬ 
zeichnisse und Einträge aufgelistet und 
können vom Anwender selbst bestimmt 
werden. Außerdem zeigt ’Flashbak’ 


die Anzahl der benötigten Disketten 
an, so daß man hier kaum in die Verle¬ 
genheit kommen kann, wegen fehlen¬ 
der Disketten das Backup-Programm 
abbrechen zu müssen. 


INFO 

Programm: 

FLASHBAK, Backup-Programm für 
Festplatte < - > Disk 

Hardware-Anforderung: 
PC,XT,AT mit Festplatte und 
Laufwerk 

Programmart: 

Shareware, (Service nach 
Registrierung) 

Bezugsquelle: 

Computer Solutions GmbH 
Rosenbuschstr.2 
D-8000 München 22 
Tel.:089/295976 



’Disk Utilities’ heißt ein Hilfspro¬ 
gramm für PC-Besitzer, die sich noch 
ein bißchen mit ihrem Computer und 
seiner Peripherie schwertun. 

Unterstützung vom Computer 

Geschrieben wurde es von Jürgen 
Brandhorst. Innerhalb von ’Disk 
Tools’ findet der Anwender eine Reihe 
von Unterprogrammen, so eine Direc¬ 
tory-Hilfe, in der man bestimmte Pro¬ 
gramme suchen und nach Kriterien be¬ 
arbeiten kann. Eine Drucker-Initiali¬ 
sierung hilft beim Ansteuern des 
Druckers mit den Standard-EPSON- 
Codes weiter. Das ’Lister’-Programm 
gibt Programm-Quelltexte formatiert 
auf den Drucker aus, dabei werden 
Zeilennummern automatisch einge¬ 
setzt, und eingerückte Zeilen werden 
auch so ausgegeben. Eine Tasten-Neu- 
belegungsfunktion legt DOS-Kom- 
mandos auf insgesamt 76 Tasten, eine 
Text-Datei-Info zeigt die Anzahl der 
Wörter, Sätze, Zeilen einer Textdatei 
auf. Das Programm ist ebenfalls Share¬ 
ware. 


INFO 

Programm: 

Disk Utilities, DOS-Hilfsprogramm 

Hardware-Anforderung: 

PC,XT,AT mit mind. 1 LW, 
MS-DOS >= DOS 2.0 Bei 
AMSTRAD mit Mausbedienung 

Programmart: 

Shareware, (Service nach 
Registrierung, DM 30,-) 

Bezugsquelle: 

Computer Solutions 
(Anschrift wie bei FLASHBAK) 


DIRECTORY 


- C Syite» Directory 1 


- BHSIC2 

(- B/ISICUZ 

- BAS1C121 

EIHSEND 
L TEXTE 

- DATABOX 
I- 5119 

- 689 

•- FOTOS 

- 7B9 

- BONDS 

- DICTION 

- TRANES 
L PROGRAKS 

- GUIIASIC 

- QUICXBAS 

- T1IRB0BAS 

1- PROKKrW 


FILES / TA6SED 


Uo»J „one 

-Total ■- 

6lr* 77 

Hiss 1,385 

Used 25.719.0W 
Free 6.817.792 

— Current Dir — 

Files 82 

Bytes 711,276 

- Tagged - 

Files 6 

Bytes 6 

— Tot«I Tagged * 

Files 6 

Bytes 6 

■ Status —— 

Disks 1 

Completed x — 


Abb. I: 'Flashbak'ist ein Backup-Programmfiir Festplatten und gegen ver¬ 
lorene Programme 



Zelt Attribut. 


f, Dateiname speichern für Italer und Text Datei Info 
pi Dalum. Zelt eingehen und iprlehern 

r 10 Datum. Zeit einer Datei setzen Imit F9 spclrbcrnl 
tnittrlhule andern IR.H.B1 

(Befehle für markierte Dateien wählen Ift.K.l.Ul 
1 Dirne kr, n (Directory oder Dateil 
(EJdlliBren (mnx. 23 Zeilrnl 
(IInhaltsverzeichnis der Diskette 
(Klopiere Datei 

(Dorschen (Datei oder Untcrverzeir.hnlsl 

(markieren von Dateien 

(N)eiies Uftterverzeichnis erzeugen 

(plfad wechseln [anderes Untcrvcrzclchnis wählen! 

<R)un IProganm startenl ohne Parameter => nur «RETURN) 
(Slortleron der Datel-Elntrage 
(Tllmc, Date (Zelt und Datum Anzeigen! 

(Illmhenennen oder verschieben von Dateien 
(Zlolye Datei (Datei auf Bildschirm ausgeben) 
(Ulerlassen (Dlr-Mllfe beenden) 


•luchbegrlff; 

nti I 

sur t irrt und, 
Nnir- 
0 DateHenl 
Free Dlskipacc: 
21li%1 Bytes 


System; 

MS-DOS U 3.30 
ROM; 61(1 KBytes 
Disk Laufwerke. I 
Drucker: I 
0087 ; nein 


Abb.2: Disk Utilities' bieten dem Anwender die Möglichkeit, seinen PC 
und die Peripherie besser einzusetzen 
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Abb.3: 'Power-Menu ' ist ein komfortables Menü-System, um andere Pro¬ 
gramme zu organisieren. Es enthält eine Passwort-Abfrage 
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Abb.4: P-BASIC ist ein komfortabler BASIC-Interpreter, dessen Program¬ 
me auch unter GW-BASIC laufen 


Programm per Tastendruck 

Bei der Fülle von Programmen, die 
sich im Laufe der Zeit auf Diskette 
oder Platte ansammeln, ist es wahrlich 
kein Wunder, wenn man schnell die 
Übersicht verliert. Hier gibt es nur ei¬ 
nes: Ein Menüsysteni muß her, und 
zwar eines, wo die Übersicht wirklich 
besser wird, und nicht noch mehr lei¬ 
det. ’Power Menu’ von Brown Bag 
Software ist eines, welches den Anfor¬ 
derungen gerecht wird. 

'Power Menu’ legt bis zu vier einzelne 
Menüs an, in denen die aufzurufenden 


INFO 

Programm: 

POWER MENU - Menüprogramm 
zur Auswahl startfähiger Dateien 

Hardware-Anforderung: 

PC,XT,AT mit Festplatte und LW, 
mit mind. 256KB 
MS-DOS >= DOS 2.1 

Programmart: 

Shareware, (Service nach 
Registrierung), DM 199,95 
(neueste Version, 
inkl. Dr. DOS (DOS-Hilfe), 
kompl. Handbuch und 1 Jahr 
Service) DM 113,95 (Programm, 
Handbuch+ 1 Jahr Service) 

DM 69,95,-(Lizenz) 

Bezugsquelle: 

Kirschbaum Software GmbH 
Kronau 15 
D-8091 Emmering 
Tel.: 08067/1220 


Programme eingetragen werden kön¬ 
nen und dann per Knopfdruck zur Ver¬ 
fügung stehen. Darüber hinaus verfügt 
dieses Menüsystem noch über eine 
Passwort-Abfrage, so daß Unbefugte 
es nicht einfach haben, wenn sie an ent¬ 
sprechende Daten wollen. ’Power 
Menu’ ist darüber hinaus noch dBASE- 
III-kompatibel. Die Auswahl-Menüs 
werden übersichtlich in Windows dar¬ 
gestellt. ’Power Menu’ ist ebenfalls 
Shareware-Programm. 

’P-BASIC’ - Mit Freude 
programmieren 

Amstrad PCs besitzen bei Ihrer Auslie¬ 
ferung nur das BASIC2, welches unter 
GEM installiert wird. Alternativen zu 
dieser Programmiersprache wären 
Quick BASIC, Turbo-BASIC oder 
GW-BASIC, letzteres wird standard¬ 
mäßig mit allen anderen PCs ausgelie¬ 
fert, inzwischen auch mit den neuen 
Amstrad 2XXX-Rechnern. Alternative 
— gut und schön, wenn nur nicht der 
Preis so hoch wäre. Eine weitere Alter¬ 
native bietet der PD-Service Lage an: 
P-BASIC. Dieser Interpreter ist sehr 
stark dem GW-BASIC-Interpreter an¬ 
gelehnt. Die Programmierung wird 
ähnlich wie bei GW-BASIC gehand- 
habt, der Editor erlaubt ein komforta¬ 
bles Arbeiten mit dem Interpreter. Auf 
der Diskette befinden sich Anwen¬ 
dungsbeispiele sowie Hinweise zur Be¬ 
dienung. Die erstellten Programme 
sind auch auf dem GW-BASIC-Inter- 
preter lauffähig, sie können außerdem 
in Batch-Dateien eingebunden werden, 
indem man beim Aufruf von P-BASIC 
den Dateinamen anhängt. 


INFO 

Programm: 

P-BASIC, BASIC-Interpreter 

Hardware-Anforderung: 
PC,XT,AT 

MS-DOS >= DOS 2.1 

Programmart: 

Public Domain, Preis der 
Diskette: DM 4,50 

Bezugsquelle: 
PD-Service-Lage 
Bernd Schulz 
Hasselstr.38 
4937 Lage 
Tel.:05232/66912 


Die hier vorgestellten Programme tei¬ 
len sich in zwei Kategorien auf: 

Zum einen die Public-Domain-Pro- 
gramme, hier bezahlt man den Disket¬ 
tenwert, bekommt dafür die Program¬ 
me, die man selbst weiter kopieren und 
weitergeben darf. 

Zum anderen die Shareware. Hierbei 
handelt es sich um Testversionen, die 
für wenig Geld (bis DM 30,-) bezogen 
werden können. Erst nach Registrie¬ 
rung beim Programmierer (was man 
sehr schnell erledigen sollte) bekommt 
man die neueste Programmversion, die 
Dokumentation und den Service. 
Shareware darf auf keinen Fall kopiert 
und weitergegeben werden, dies be¬ 
deutet Copyrightverletzung. 

(jb) 
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_Joyce Programmsammlungen_ 

Hochwertige Software zu Niedrigpreisen finden JOYCE-Besitzer im Rahmen einer 
Programmsammlung in der Angebotspalette des DMV Verlages. 

Jede Ausgabe aus dieser Reihe enthält eines oder zwei Programme, die aus verschiedenen 
Anwendungsgebieten kommen. Diese Serie erscheint in unregelmäßiger Reihenfolge und wird als kom¬ 
plettes Programmpaket mit 3“-Diskette und Bedienungsanleitung ausgeliefert. 



Joyce Programmsammlung VOL. VI 



Die universell einsetzbare 
Tabellenkalkulation zum Erstellen 
von Monatsbilanzen, T-Konten 
etc. für die PCW(JOYCE)-Familie 



Leistungsumfang: 

Auf der mitgelieferten Diskette finden Sie alle zur Erstellung 

eine Startdiskette nötigen Programme und Dateien. Die Be¬ 
dienungsanleitung enthält eine ausführliche Erklärung aller 

Funktionen. 

Funktionen: 

- kurze Einarbeitungszeit, da eine einfache und übersicht¬ 
liche Menüführung Fehleingaben abfängt oder gar nicht 
erst zuläßt 

- schnelles Arbeiten durch Belegung der Funktionstasten 
mit den wichtigsten Funktionen 

- auf Wunsch wird die Formel des aktuellen Feldes am un¬ 
teren Rand eingeblendet 

- besonders schnelle Bearbeitung von Eingaben und Be¬ 
rechnungen 


- arbeitet vollständig auf dem Memory-Laufwerk, was 
Schreib-/Leseoperationen wesentlich beschleunigt 

- bis zu 68 Zeichen pro Formel möglich 

- eigene Befehle zur Verkürzung der Formeln 

- drei verschiedene Schriftarten beim Drucken 

- standardmäßig 2574 frei belegbare Felder 

- akzeptiert sogar Exponentenschreibweise 

Joyce Programmsammlung Vol. VI TABKALK für alle JOYCE 
(PCW’s) braucht den Vergleich mit vielen teureren Program¬ 
men nicht zu scheuen. 

Joyce Programmsammlung Vol. VI für alle JOYCE PCW’s 

Best.-Nr.: 22 i 3“-Diskette 59,- DM* 

unverbindliche Preisempfehlung 



Das maßgeschneiderte 
DATENBANKSYSTEM für die 
PCW(JOYCE)-Familie 
(PCW 8256, PCW 8512, PCW 9512* *) 

Max. 27 Felder pro Datensatz, 50 Stellen 
pro Feld, 35.000 Sätze pro Datei, mini¬ 
maler Disketten-Speicherbedarf! 



Die wichtigsten Leistungen von Vol. V auf einen Blick: 

- Generiert Standard-Direktzugriffsdateien (BASIC), die auch in Eigenprogram¬ 
me eingebunden werden können. 

- Vollautomatisch generierte Maske zur Datenerfassung, Datenänderung und 
Datenlöschung. 

- Reservierung des nötigen Speicherplatzes auf der Diskette, mit automatischer 
Erweiterung bei Erreichen der Reservierungsgrenze. 

- Gelöschte Datensätze werden vorrangig neubelegt, bevor weitere Sätze ver¬ 
braucht werden. 

r Auf Wunsch Datentransfer aus vorhandenen in neuangelegte Dateien. 

- Automatische Eintragung neuer Dateien in das Disketten-Hauptmenü 

- Alle Programme werden auf der RAM-Floppy gehalten. 

- Listenerstellung (Drucker oder Bildschirm) mit automatischer Spal¬ 
tenformatierung. 

- Daten können selektiert (ausgewählt, ausgeschlossen) werden. 

- Auf Wunsch Summen numerischer Spalten. 

- Freie Wahl der Sortierung; Mehrfachsortierkriterien. 


- Ohne Lernaufwand SOFORT voll anwendbar, keine Befehlswörter. 

- Nach 1-2 Minuten können Sie bereits über eine komfortable Maske Daten er¬ 
fassen. 

- Druckmasken für die beliebig sortierte Datenauflistung am Bildschirm oder am 
Drucker brauchen Sie nicht erst mühselig zu programmieren, sie werden vol¬ 
lautomatisch für beliebige Datenfelder und Spaltenfolgen generiert. 

- Bei mehrseitigen Auflistungen am Bildschirm Direktsprung zu jeder beliebigen 
Seite. 

- Einmal gewählte Druckparameter werden auf Wunsch gespeichert, die ent¬ 
sprechenden Listen können jederzeit abgerufen werden. 

Sofort Ergebnisse statt (frustrierender) Erlebnisse! 

VOL. V für Joyce/PCW 8256/8512/9512** mit ausführlicher 

Bedienungsanleitung 

Best.-Nr.: 220 3“-Diskette 99, - DM* 

unverbindliche Preisempfehlung 

** PCW 9512 auf Anfrage 


* Unabhängig von der Anzahl der bestellten Programme berechnen wir für das Inland 4,- DM bzw. für das Ausland 6,- DM Porto und Verpackung. 

Bitte benutzen Sie die Bestellkarte. 

—DMV-Verlag - Postfach 250 - 3440 Eschwege— 
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welche in eigene Programme eingebunden werden können sowie deren 
Ausgabe auf dem JOYCE-Drucker. 

Leistungsumfang: Der mitgelieferten Diskette können sie alle zum Arbei¬ 
ten mit dem Programm benötigten Dateien entnehmen. Für alle Turbo- 
Pascal-Programmierer wird auch der Programmtext mitgeliefert. 

Funktionen: Durch das Unterscheiden zwischen Grob- und Feinbearbei¬ 
tung ist es möglich, brilliante Grafiken auf das Pixel genau zu zeichnen. 
Lösch-sowie Invertierfunktion sind in allen Bearbeitunasmodi aufrufbar. 
Auch Texte können bei der Grobbearbeitung in das Bild gebracht werden 
Im Dateimenü steht neben einer Lade- und Speicheroption noch eine Funk¬ 
tion zur Verfügung, welche zwei Bilder miteinander mischt. Neben dem Ver¬ 
satz des linken Randes vor dem Drucken können noch vier verschiedene 
Druckformate angewählt werden. 

VOL. IV für Joyce/PCW 8256/8512 mit 
ausführlicher Bedienungsanleitung 


Best.-Nr.:219 


3“-Diskette 


59,- DM* 

unverbindliche Preisempfehlung 


1. Feld-Tab 

■pEin BASIC-Programm zum millimetergenauen Ausfüllen von Tabellen, Vor¬ 
drucken und Formularen. Feld-Tab ist menügesteuert und bietet die Anwahl 
der einzelnen Funktionen, wie unter LocoScript gewohnt. Geben Sie Sei¬ 
tenlänge, Zeilenabstand und Tabulatoren in Millimetern ein, bestimmen Sie 
Schriftweite, Schriftart und Text. Text kann mit LocoScript erstellt werden 
und nach Umwandlung in eine ASCII-Datei in Feld-Tab eingelesen werden. 
Weitere ASCII-Editoren können ebenso verwendet werden wie der komfor¬ 
table programminterne Seiteneditor. Ein unentbehrliches Werkzeug! 

2. Gsxplot 

Ein Grafikpaket für Statistiken, Geschäftspräsentationen und viele andere 
grafische Anwendungen! Überein Menü sind folgende Funktionen wählbar: 
■ Balkendiagramme • Kurvendiagramme • Strichgrafik 
• Punktediagramme ■ Textgrafik 

Ein Hilfsprogramm erläutert Ihnen während der Arbeit mit Gsxplot die wich¬ 
tigsten Funktionen. Alle erstellten Grafiken können sowohl am Bildschirm 
als auch auf dem Drucker dargestellt werden. Gsxplot braucht den Ver¬ 
gleich mit wesentlich teurerer Software nicht zu scheuen! 


VOL.III für Joyce/PCW 8256/8512 zwei Disketten 
mit ausführlicher Bedienungsanleitung 


Best.-Nr.: 217 


3“-Diskette 


69, - DM* 

unverbindliche Preisempfehlung 


SUPERdat 

pr Eine universelle Dateiverwaltung für PCW 8256/8512 zur Erstellung eigener Dateien. 
Leistungsumfang: MASKE ist das Vorprogramm, mit dem Sie die Feld¬ 
namen und -längen sowie die Länge des Suchbegriffs voreinstellen 
können. 

SUPERdat ist das Hauptprogramm, welches die Daten der gewünschten 
Datei verwaltet. Neben der Eingabe von Daten in die Maske sind mehrere 
Sucharten, so z.B. auch Jokersuchen möglich. Jede Datei kann max. acht 
Felder enthalten, wovon jedes max. 40 Zeichen enthalten darf, Die Gesamt¬ 
länge eines Datensatzes darf 255 Zeichen betragen. 

SUPERtex Dieses Programm stellt eine Rundschreib- (Mailmerge-)funktion 
für SUPERdat zur Verfügung. In einen in Laufwerk M: befindlichen ASCII- 
Text (z.B. mit RPED erstellt) werden automatisch vom Anwender vorausge¬ 
wählte beliebige Einträge aus beliebigen SUPERdat-Dateien an beliebiger 
Stelle eingefügt. Weiterhin können 30 beliebige Datensätze in eine für Lo¬ 
coScript lesbare Datei umgewandelt werden. 

SUPERcal Der Taschenrechner zu SUPERdat. Dieser bietet neben den 
Grundrechenarten auch Winkelfunktionen, quadratische und Prozentfunk¬ 
tionen. Eine Klammerebene und Memory-Funktionen vervollständigen das 
Leistungsangebot dieses Programms. 

VOL.II für Joyce/PCW 8256/8512 mit 
ausführlicher Bedienungsanleitung 


Best.-Nr.: 216 


3“-Diskette 


49, - DM* 

unverbindliche Preisempfehlung 


1. Der Character-Designer 

m Funktion: Komfortable Erstellung eigener Zeichensätze auf PCW 8256/ 
8512 und deren Darstellung am Bildschlrml Ausdruck von ASCII-Files in 
diesem Zeichensatz unter CP/M Plus. 

Leistungsumfang: CD.COM ist der Character-Designer, der Editie- 
rung oder Neuerstellung von Zeichensätzen und deren Speicherung er¬ 
laubt. CD-PRINT druckt vorformatierte ASCII-Texte auf dem Joyce-Drucker 
oder anderen Druckern in dem gewünschten Zeichensatz aus. 

CRAZY, ORIGINAL, LOCCHAR und SCRIPT sind mitgelieferte Zeichensät¬ 
ze. SETUP.COM erlaubt als Zugabe die Vorwahl einiger Systemparameter, 
z.B. die der seriellen Schnittstelle, der Tastaturgeschwindigkeit und der 
Floppy-Steprate. 

2. MGX 

Funktion: Grafische Darstellung von mathematischen Funktionen und be¬ 
liebigen Meßreihen auf Bildschirm oder im Großformat auf dem Drucker. 
Leistungsumfang: Neben den arithmetischen Grundfunktionen sind auch 
weitere Funktionen darstellbar, die z.B. unter Mallard-Basic nicht zur Verfü¬ 
gung gestellt werden. Es können mehrere Funktionen und Meßreihen (die¬ 
se wiederum mit mehreren Meßwerten gleichzeitig) dargestellt werden. 

VOL.I für Joyce/PCW 8256/8512 mit 
ausführlicher Bedienungsanleitung 

Best.-Nr.: 215 3“-Diskette 59,- DM* 

unverbindliche Preisempfehlung 


D M V - Angebot 

Praktische Textverarbeitung mit Joyce 

Ein Buch/Disketten-Paket. Der Autor Jürgen Sie¬ 
ben zeigt in diesem Buch Möglichkeiten der Text¬ 
verarbeitung auf, die Sie von LocoScript nicht er¬ 
wartet hätten... Von der Pike auf werden Sie an 
den Umgang mit Schablonen und Standardlayout 
herangefühn. Einige Abstecher führen Sie an¬ 
hand anschaulicher Beispiele an Textverarbeitung 
und CP/M (ED/Wordstar) heran. 

Aus dem Inhalt: 

- LocoScript Spezial - Softwaretraining für Fort¬ 
geschrittene 

- Fehler im System: Wie rette ich meinen Text? 

- Joyce-Tasteninstallationsdatei für das Pro¬ 
gramm Wordstar 

- Aleatorische Poetik: Der Computer dichtet 




Auf Diskette: Über 50 Dateien mit Schablonen, Briefen, Postkarten, Serien- 
Rundschreiben, Formularen, Etiketten, Druckbeispielen, Schriften, 
Bildschirm-Installationen uvm. 

Leinen-Hardcover, 207 Seiten, 

3“-Diskette Best.-Nr. 401 DM 89, - 


Joyce 

Bücher-Kiste 


Aus dem Data-Becker-Angebot 

Das Große LOGO-Buch zu CPC und Joyce 

LOGO kann mehr, als Sie denken. LOGO ist heute eine 
anerkannte Sprache bei vielen ehrgeizigen Programmprojek¬ 
ten. Das reicht bis hin zur Erstellung von Kl-Programmen. 
Hier das Buch für CPC- und Joyce-Besitzer, die viele Vorteile 
dieser Sprache kennenlernen wollen. Um nur einige Stich¬ 
worte zu nennen: Listenverarbeitung, Prozeduren, Rekur¬ 
sionen, Sortierroutinen, Maskengenerator. Nutzen Sie diese 
Sprache für Ihre eigenen, ehrgeizigen Programmideen. 


410 Seiten Best.-Nr. 417 


DM 39,-* 


Programmierwissen pur im Westentaschenformat 
Führer zum Joyce 

Best.-Nr. 450 DM 29,80* 

Führer zum CP/M 

Best.-Nr. 452 DM19,80* 


Aus dem Franzis-Verlag-Angebot 

Den Joyce programmieren 

Der Autor hat es sich zur Aufgabe gemacht, den Joyce als 
vollständigen Computer zu beschreiben. Er vermittelt dem 
Joyce-Besitzer eine Menge interessanter und nicht alltäg¬ 
licher Kenntnisse. Außerdem ist das Buch angefüllt mit Pro- 
grammlistings, die für den fertigen Einsatz konzipiert sind. 
Aus diesen Listings lassen sich zahlreiche ausgefeilte Pro¬ 
grammtricks entnehmen. Der Aufbau und die Bedienung des 
CP/M-Betriebssystems werden ebenfalls für den Joyce- 
Anwender, der sich nicht mit einfacher Textverarbeitung 
begnügen will, behandelt. Insgesamt stellt das Buch eine 
interessante Programmierliteratur für den technisch interes¬ 
sierten Joyce-Eigner dar. 


ca. 160 Seiten Best.-Nr. 425 


DM 38,-' 


* Unabhängig von der Anzahl der bestellten Bücher berechnen wir für das Inland 4.- DM 
bzw. für das Ausland 6,- DM Porto und Verpackung. Bitte benutzen Sie die Bestellkarte. 

DMV-Verlag ■ Postfach 250 • 3440 Eschwege 




















****** RS 232C Datenübertragung —, 

Bittee Funktion wählen: 

1: Daten empfangen 
Z: Daten senden' 

0: Programm beenden 

Bitte Dateinamen eingeben: test.dat 


Transport¬ 

geschäfte 


Datenübertragung 
für den 

Hausgebrauch 




aTHrT 



D ies sollte jedoch kein Problem 
darstellen, da heutzutage fast je¬ 
der PC (sogar die Originalen von IBM) 
über zumindest eine RS 232C (ameri¬ 
kanische Norm), bzw. V24 (deutsche 
Norm) kompatible serielle Schnittstelle 
verfügt. Hierzu benötigt man nur ein 
sogenanntes Null-Modem-Kabel und 
zwei entsprechende Programme auf 
beiden Rechnern, was sich zwar recht 
einfach anhört, aber die Schwierigkei¬ 
ten beginnen schon beim Null-Modem. 
Betrachtet man sich nur einmal die se¬ 
rielle Schnittstelle, so stellt man zuerst 
einmal fest, daß die Kompatibilität ei¬ 
ner seriellen Schnittstelle der IBM- 
Norm darin besteht, daß sie über weni¬ 
ger Signale verfügt, als die komplette 
V24-Schnittstelle nach DIN-Norm 
(Abb. 1). 

Bei seriellen Schnittstellen kommt es 
zudem oft vor, daß diverse Hersteller 
sie einfach ein wenig abändern, was 
sich dann im Wort “kompatibel“ nie¬ 
derschlägt. Deshalb braucht ein Null- 
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Modem, welches mit zwei Rechnern 
der Typen X und Y funktioniert, nicht 
unbedingt mit den Rechnern X und Z 
zu funktionieren. Für ein Null-Mo¬ 
dem-Kabel nun ist es also notwendig, 
daß man den größten gemeinsamen 
Nenner findet. 

Falsch verbunden? 

Nach einigen Versuchen haben wir nun 
eine Verbindungskonstellation gefun¬ 
den, welche anscheinend mit den mei¬ 
sten PCs arbeitet (Bild 1). Erfolgreich 
erprobt wurde sie zwischen einem Am- 
strad PPC 512 (der über die gleiche 
Schnittstelle verfügt, wie die Typen 
1512/1640 und 2086, einem Zenith 
171 und einem Noname-Kompatiblen. 
Sollte dieses Kabel bei anderen Rech¬ 
nern nicht funktionieren, empfiehlt es 
sich, ein wenig mit den Anschlüssen zu 
experimentieren, z.B. 4 und 5 nicht 
kreuzen, sondern an jedem Stecker mit 
sich selber kurzschließen, etc. Wichtig 
ist hierbei nur, daß keine zwei Ausga¬ 


beleitungen miteinander verbunden 
werden, sondern immer eine Ausgabe- 
mit mindestens einer Eingabeleitung. 

Hat man nun zwei PCs mit einem Kabel 
verbunden, so ist es natürlich zweck¬ 
mäßig, dieses auszuprobieren, bevor 
es an die Programmierung geht, sonst 
stellt man erst dann fest, daß keine 
Funktion erfolgt, weil man die falschen 
Leitungen verbunden hat. Hierzu bie¬ 
ten sich einige Betriebssystemfunktio¬ 
nen an, die von MS-DOS zur Verfü¬ 
gung gestellt werden. Zuerst einmal 
müssen beide Rechner auf die gleichen 
Übertragungsparameter eingestellt 
werden. Dieses geschieht mit dem 
MODE-Befehl. Es empfiehlt sich, zum 
Testen eine kleine Ubertragungsge¬ 
schwindigkeit zu wählen, z.B. 300 
Baud. Der Mode-Befehl könnte folgen¬ 
dermaßen aussehen: 

MODE CO Ml :300, n,8,l 

Hierdurch wird die serielle Schnittstel¬ 
le auf eine Übertragungsgeschwindig¬ 
keit von 300 Baud, keiner Parität, 
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Die Notwendigkeit, Daten von ei¬ 
nem PC zum anderen zu übertra¬ 
gen, kann heutzutage ziemlich 
schnell entstehen. Hierzu gibt es 
natürlich verschiedene Möglich¬ 
keiten. Die einfachste ist es, die 
Daten auf eine Diskette zu über¬ 
spielen und diese dann in den an¬ 
deren PC zu schieben.Problema¬ 
tisch wird dieses erst, wenn der 
eine PC über 5.25-Zoll-Laufwerke 
verfügt, der andere jedoch nur 
über 3.5-Zoll-Laufwerke. Dieses 
war auch der primäre Grund für 
die Autoren dieses Artikels, sich 
mit diesem Thema zu befassen. 


Bitte Funktion wählen: 

1: Daten empfangen 
2: Daten senden 

O: Programm beenden 

Bitte Dateinamen eingeben: test.dat 




8 Datenbits und einem Stopbit festge 
legt. Gibt man nun bei einem der Rech¬ 
ner den Befehl 
CTTYCOM1 

ein, so erwartet er die Befehlseingaben 
von nun an von der seriellen Schnitt¬ 
stelle. Nun kann man vom anderen 
Rechner einen Befehl 
hinübersenden: 


COPYCON COM1 
DIR > CON 

< CTRL> +Z (Tastenkombination 
zum beenden) 

Hiermit wird über die serielle Schnitt¬ 
stelle die Zeile DIR >CON ausgege¬ 
ben. Wenn alles glatt verlaufen ist, 
müßte der erste Rechner nun das Direc¬ 
tory anzeigen. Die Umleitung des Di¬ 
rectory s nach CON ist notwendig, da 
dTY COM1 bewirkt, daß alle Einga¬ 
ben und Ausgaben nach CON umgelei¬ 
tet werden. Um nun wieder normal mit 
dem ersten Rechner arbeiten zu kön¬ 
nen, muß die Eingabe wieder nach 
CON umgeleitet werden. Hierzu ist auf 
dem zweiten Rechner folgendes einzu¬ 
geben: 

COPY CON COM1 
CITY CON 
<CTRL>+Z 

Zum Befehl COPY CON COM1 sei 
noch bemerkt, daß dieser Befehl umge¬ 
kehrt nicht anwendbar ist. COPY 
COM1 CON funktioniert nicht! 
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in20Q-^- 
r ■ m«. Q Ground (GNP) 


OP>n2 

{]Pin3 

QPin4 

{]Pin5 

{]Pin6 

{]Pin8 

QPin20 


Ground (GNP) 


Pin Bezeichnang 

1 Frane Ground 

2 Serial Data Output (TxO) 

3 Serial Data Input (RxD) 

4 Request to send Output (RTS) 

5 Clear to send Inputs (CTS) 

6 Data Set Ready Inputs (DSR) 

7 Signal Ground 

8 Data Carrier Detect Input (DCD) 

9-19 n.c. (not connected) 

20 Data Terninal Ready Output (DTR) 

21 n.c. 

22 Ring Indicator Input (RI) 

23-25 n.c. 


-QPin7 



Die BIOS-Routinen bieten gegenüber 

AL = Line-Control-Register 

3. Funktion 

den Routinen, die Turbo Pascal an- 

Bit 0 - 1: Wortlänge: 00 = 5 

Empfängt ein Zeichen 

bietet, einen Reihe von Vorteilen: 

01 = 6 

Eingabe AH = 2 

1. Der Computer stürzt bei einem 

10 = 7 

DX = OfürCOMl 

Übertragungsfehler nicht ab. 

11=8 

= 1 für COM2 

Bit 2 Stopbits: 0 = 1 Stopbit 

Rückgabe 

2. Die Übertragungsart kann beein- 

1 = 2 Stopbits 

Bei fehlerfreier Übertragung: Das 

flußt werden (Baudrate, Stopbits, 

Bit 3 - 4 Parität: 00 = keine 

empfangene Zeichen in AL, sonst die 

Wortlänge, Parität). 

01 = ungerade 

Statusmeldung in AH. 

3. Bei einem Übertragungsfehler er- 

10 = keine 

4. Funktion 

hält man Informationen über die Art 

11 = gerade 

Testet den Port 

des Fehlers. 

Bit 5 - 7 Baudrate 000 =110 Baud 

001 = 150 

Eingabe AH = 3 

DX = OfürCOMl 

4. Der Status des Ports kann abgefragt 
werden. 

Die BIOS-Routinen können über den 

010 = 300 

= 1 für COM2 

011 = 600 

Rückgabe 

Software-Interrupt $14 aufgerufen 

100 = 1200 

Statusmeldung in AH 

werden. 

101 = 2400 

110 = 4800 

Statusmeldung: 

Bit 0: Es liegen Daten an 

1. Funktion 

111= 9600 

1: Überlauf-Fehler 

Initialisierung des Ports: Legt die 

Rückgabe: Statusmeldung in AH 

2: Paritäts-Fehler 

Übertragungsgeschwindigkeit, Pari- 

2. Funktion 

3: Falsche Anzahl von Stopbits 

tät, Stopbits und Wortlänge fest. 

Sendet ein Zeichen Eingabe AH = 1 

4: Unterbrechungssignal 

Eingabe: 

AL = Das zu übertragende Zeichen 

empfangen 

DX = 0 für COM 1 

5 : Zeichen wurde gelesen 

AH = 0 

= 1 für COM2 

6: Zeichen wurde abgesandt 

DX = 0 für COM l 

Rückgabe 

Bei einem Übertragungsfehler enthält 

7: Timeout- Fehler 

Angaben bezogen auf einen 25poligen 

1 für COM2 

AH die Statusmeldung. 

Sub-D-Stecker 


Abb. 2: Die Vorzüge der BIOS-Routinen gegenüber Turbo Pascal 3.0 
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Um nun Dateien zwischen beiden 
Rechnern übertragen zu können, benö¬ 
tigt man ein entsprechendes Programm. 
Ein derartiges Programm ist das 
Programm TRANS.PAS (Listing 1). 
Dieses Programm wurde in Turbo Pas¬ 
cal 3.0 geschrieben und ist in der Lage, 
einzelne Dateien zu übertragen. 

Da die internen Funktionen von Turbo 
Pascal nur sehr beschränkt sind, hilft 
zum Beispiel nur noch ein Reset, wenn 
der Rechner auf ein Zeichen wartet, 
welches nicht kommt. Daher wurden 
zur Ein- und Ausgabe direkt die ent¬ 
sprechenden BIOS-Funktionen über 
Interrupt aufgerufen. Eine detaillierte 
Erläuterung der BIOS-Funktionen ist 
in der Tabelle 2 enthalten. 


Das eigentliche Übertragungsprotokoll 
ist recht einfach. Der Rechner, welcher 
die Datei senden soll, schickt zuerst 
einmal in den ersten acht Bytes die 
Länge der Datei im ASCII-Format her¬ 
über, anschließend die eigentliche Da¬ 
tei. Damit kein Überlauf beim Empfän¬ 
ger auftritt und dadurch keine Bytes 
verlorengehen, wird vom Empfänger 
jedes Byte, welches erhalten wird, ver¬ 
arbeitet (abgespeichert) und anschlie¬ 
ßend wieder zum Sender zurückge¬ 
schickt. Dadurch erhält der Sender 
wiederum die Möglichkeit zu überprü¬ 
fen, ob das Zeichen korrekt übertragen 
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wurde. Dieses Verfahren ist zwar nicht 
sehr schnell, aber dafür ziemlich si¬ 
cher. Erfahrungsgemäß treten auch bei 
recht großen Dateien (mehrere hundert 
kByte) keine Übertragungsfehler auf, 
wenn doch, so werden sie auf dem 
Bildschirm ausgegeben. Eine eindeuti¬ 
ge Erklärung der Fehlercodes ist in der 
Tabelle 3 gegeben. 

Für die Bedienung des Programmes ist 
sonst nur wichtig, daß der Empfänger 
zuerst starten soll und erst danach der 
Sender. Ansonsten ist das Programm 
mit den entsprechenden Kommentaren 
selbsterklärend. 

(Christian Vögtle/jb) 





ix 




O-S23_r-i r -1 

TV"V\ V \ ~TT 

10 —^ 


1 PROGRAM Datentransfer; 

2 {$U+} 

3 { *** RS 232C Transfer VI.0 *** 

ein Programm zur Übertragung von Files zwischen zw 

e1 PCs mittels 

eines Nu 11-Modem-Kabe1s. 

4 1989 by Lippe Enterprises 4 Vögtle- 

Sof t 

5 geschr.von 

C. von der Lippe und Christian Vögtle 
Bünde 1 Freiburg 

letzte Änderung: 14.2.1989 

) 


6 { Deklaration des Registertyps für den Interruptau 

fruf } 

7 TYPE 

8 Registe rs 

9 

10 
11 

12 VAR 

13 Fehler:BYT E; 

14 E1ngabe:CHAR; 

15 { Prozedur zum Einstei len von Übertragungsgeschwind 
Igkelt. Pari tat usw.) 

16 PROCEDURE 1nit_port; 

17 VAR 

18 regs : Registers; 

19 BEGIN 

20 regs.ah := $00; regs.al := $E3; 

21 regs.DX := 0; 

22 Intr($14,regs) ; 

23 END; 


= RECORD CASE INTEGER OF 

1:(ax,bx,cx,dx,bp,si,dt,ds,es,F 
lags : INTEGER); 

2:(a1, ah, bl, bh, cl , ch, dl, 
dh : BYTE); 


24 { Abfrage des Portstatus ) 

25 FUNCTION test_port : INTEGER; 

26 VAR 

27 regs : Registers; 

28 BEGIN 

29 regs.AX := $0300; 

30 regs.DX := 0; 

31 Intr($14,regs); 

32 test_port := regs.AX; 

33 END; 

34 { Funktion zum Lesen eines Zeichen von der serielle 
n Schnittstelle ) 

35 FUNCTION readaux : CHAR; 

36 VAR 

37 regs : Registers; 

38 BEGIN 

39 { Der Port wird solange abgefragt, bis ein Zeich 
en an 11 egt ) 

40 REPEAT 

41 UNTIL (test_po rt AND 256) = 256; 

42 regs.AX := $0200; 

43 regs.DX := 0; 

44 Intr($ 14,regs); 

45 Fehler := regs.ah; 

46 readaux := CHAR(regs.a1 ) ; 

47 END; 

48 { Prozedure zum Senden eines Zeichens ) 

49 PROCEDURE wrlteauxCwas : CHAR); 

50 VAR 

51 regs : Registers; 

52 raus : BYTE; 

53 BEGIN 

54 raus := Ord(was); 

55 regs.ah := $01; 

56 regs.al := raus; 

5 7 regs.DX ;= 0; 

58 Intr($14,regs); 

59 fehler := HI(regs.AX); 

60 END; 


Listing Transportgeschätte 


Listing Transportgeschätte 
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61 { Prozedur zum Überträgen einer Datei } 

62 PROCEDURE put_file; 

63 VAR 

64 Dateibezeichnung : STRING[60); 

65 dateilaenge : STRING[8]; 

66 Datei : FILE OF CHAR; 

67 i.j : INTEGER; 

68 zeieben,zeichenl ; CHAR; 

69 1aenge,zaehler:REAL; 


70 

BEGIN 


71 

1 nit_port; 


72 

Write( 'We1 che Datei übertragen? '); 


73 

ReadLn(0ate1bezeichnung); 


74 

Assign(Datei,Dateibezeichnung); 


75 

Reset(Datei); 


76 

{ Die Dateilänge wird zur Übertragung 
String umgewandelt ) 

in einen 

77 

1aenge:=LongF11eSIze(Datei); 


78 

Str(1aenge;8.0,dateilaenge) ; 


79 

Wr iteLn('Länge der Datei : '.dateilaenge); 

80 

{ übertragen der Dateilänge ) 


81 

FOR i := 1 TO 8 DO 


82 

BEGIN 


83 

wrtteauxldateilaenge[i]); 


84 

{ Durch die Schleife werden die 

Computer 


synchron!siert ) 


121 fi1ename:STRING[64]; 

122 1 ,J:I NT EGER; 

123 zeichen:CHAR; 

124 laenge,m:REAL; 

125 BEGIN 

126 Write ('Bitte Dateinamen eingeben: '); 

127 Read Ln(f11ename ) ; 

128 Assign(Date 1 ,fi1ename); 

129 Rewrlte(Datei); 

130 1aenge:=0; 

131 init_port; 

132 { Rechnersynchronisation } 

133 writeaux( a'); 

134 REPEAT zeichen:=readaux UNTIL zeichen=Chr(32 ) ; wri 
teaux(zeichen); 

135 { Übertragung der Dateilänge } 

136 FOR 1:=1 TO 7 DO 

137 BEGIN 

138 zeichen:=readaux; 

139 { Die als String übertragene Dateilänge wird in e 
Ine Real-Zahl umgewandelt } 

140 1aenge:=1aenge*10; 

141 IF zeichen<>Chr(32) THEN 1aenge:=1aenge+0rd(zetch 
en)-Ord( ' 0 '); 

142 writeaux(zeichen); 

143 END; 

144 Wr 1 teLn(’Länge der Datei: ' , 1aenge:6:0); 

145 { Übertragung des Fileinhaltes ) 


85 REPEAT 

86 Zeichen := readaux; 

87 UNTIL Zeichen <> ’a'; 

88 IF Zeichen <> date i 1aenge(i ] THEN 

89 BEGIN 

90 WriteLn( 'Fehl er bei der Datenübertra 
gung :'.Fehler); 

91 { Die Variable Fehler enthält die Nu 
mmer des aufgetretenen Fehlers (sieh 
e Tabel1e 2 ) } 

92 END; 

93 END; 

94 { Übertragung der Daten ) 

95 zaehle r: = 1; 

96 WHILE zaehler<=laenge DO 

97 BEGIN 

98 Write('.'); 

99 j:=100; 

100 IF zaehl er + j-1>1aenge THEN j : =Round(1aenge- 
zaeh1e r) +1; 

101 { Interne Schleife zur Übertragung eines Bl 
ocks von bis zu 100 Byte. Dadurch kommt es 
zu einem erheblichen Geschwlnd1ke1tsgew1nn 
durch Vermeidung zeitraubender Fließkommaop 
erationen ) 

102 FOR 1:=1 TO j DO 

103 BEGIN 

104 Read(Datei,Zeichen); 

105 wr 1teaux(ze1chen ) ; 

106 zeichenl := readaux; 

107 IF zeichenl <> Zeichen THEN 

108 BEGIN 

109 WriteLn('Fehler bei der Datenübertra 
gung '.Fehler); 

110 ( Die Variable Fehler enthält die Nummer 

des aufgetretenen Fehlers (siehe Tabell 
e 2) } 

111 END; 

112 END; 

113 zaehler:=zaehler + j ; 

114 END; 

115 WriteLn; 

116 CIose(Datei ) ; 

117 WriteLn('Ende der Datenübertragung . Bitte Taste 
drücken I ' ) ; 

118 END; 

119 PROCEDURE get_file; 

120 VAR Datei:FILE OF CHAR; 


146 m:=1; 

147 WHILE m<=laenge DO 

148 BEGIN 

149 Write('.'); 

150 j:=10 0; 

151 IF j+m-l>laenge THEN j:=Round(1aenge-m)+1; 

152 { Übertragung des Fileinhaltes ln Blöcken mit max 
imal 100 Byte aus 

153 Zeitgründen innerhalb einer Integersch 1eife ) 

154 FOR 1 : = 1 TO J 00 

155 BEGIN 

156 zeichen:=readaux; 

157 Write(Datei,zeichen );■ 

158 writeaux(zeichen); 

159 END; 

160 m:=m+j; 

161 END; 

162 WriteLn; 

163 C1 ose(Date 1 ) ; 

164 WriteLn('Ende der Datenübertragung, Bitte Taste drü 
cken!'); 

165 Read(KBD,zeichen); 

166 END; 


167 

168 
169 
1 70 

171 

172 

173 

174 
1 75 

176 

177 

178 

179 

180 
181 
182 

183 

184 

185 

186 
167 


BEGIN 

REPEAT 

CI rScr; 

WriteLn ('*** RS 232C Datenübertragung ***'); 
WriteLn ; 

WriteLn ('Bitte Funktion wählen:'); 

WriteLn ('1: Daten empfangen'); 

WriteLn (’2: Daten senden'); 

WriteLn; 

WriteLn (0: Programm beenden'); 

Read(KBD.Eingabe); 

WriteLn; 

CASE Eingabe OF 
'1* : BEGIN 

get_fi1e; 

Read(KBD,Eingabe); 

END; 

'2' : BEGIN 

put_fIle; 

Read(KBD,Elngabe); 

END . 


188 END; 

189 UNTIL Eingabe='0'; 

190 WriteLn; 

191 WriteLn!'Bis zum nächstenmaI...'); 

192 END. 


Llsting Transportgeschälte 


Listing Transportgeschäfte 
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DMV-Versandservice 

Die preiswerte Alternative für aktive CPC-Anwender! 



Textverarbeitung 


ConText CPC 

So macht Textverarbeitung wirklich Spaß! 

Bisher unerreicht für alle CPCs mit vielen Funktionen 
aus dem PC-Standard: Blockformatieren, Zellen 
kopieren, Drucken im Hintergrund, mehrspaltiges 
Layout, Großschrift und Unterstreichen am Bildschirm, 
usw. Einfache Bedienung über Statuszeile und doppelt 
belegte Tastenfunktionen, anpaßbarer Druckertreiber, 
eingebautem Taschenrechner, Kalender und ausführli¬ 
cher Bedienungsanleitung. 

Autor: Matthias Uphoff 

Kassette dm 49,— 

Diskette dm 59,- 


Anwendungen 


Copyshop 

Das universelle Hardcopy-Programm 
für alle CPCs 

Alle Formate auf allen gängigen Druckern, Ausschnitt¬ 
vergrößerungen, 32 Farbraster, Grafikeditor, Freezer 
und Darstellung der Kopie vor dem Ausdruck auf dem 
Bildschirm. 

Autor: Matthias Uphoff 

Kassette dm 59,- 

Diskette dm 69- 


FAst BAsic COMpiler 

BASIC-1.1-Programme 
um ein Vielfaches schneller! 

Unterstützung der Vortex-Peripherie, aller CP/M- 
Dienstprogramme und von Integer- und Fließkomma- 
Arithmetik. 

Mit ausführlicher deutscher Bedienungsanleitung. 

Für alle CPCs 

Diskette dm 69- 


DIE BASIC2 TOOLBOX 

Das große Buch zum Locomotive 
BASIC2 für PC 1512/1640 

Mit vielen Programmen für die tägliche Praxis: 

Lister, Komprimierung, Crossreferenzgenerator, 
Textdatei-Manager, Hexdump, Taschenrechner 
und ein Disassembler für Intel 8086. 

BUCh, ISBN 3-926177-01-2 DM 49,- 

Diskette, pc 51 / 4 -zoii dm 29,- 


Unterhaltung 


Fraktal Generator 3-D 

Faszination Computergrafik für alle CPCs: 

Die Entdeckungsreise in das unerschöpfliche 
Wunderland von Fraktalgrafiken 

Autor: Matthias Uphoff 

Kassetto dm 59,— 

Diskette dm 69,- 

CYRUS II Schach 

Das bewährte Schachprogramm mit 3D-Display, 
einstellbarer Spielstarke und deutscher Bedienungs¬ 
anleitung 

Für alle CPCs 

Kassette dm 12,95 

STARTEST 

Aktion-Adventure für alle CPCs 
Kassette dm 24,- 

Diskette dm 29,- 

Fantastic Four 

Vier Superprogramme 
zum kleinen Preis: 

COCKAIGNE - Weltraum-Actionspiel 
TERRANAUT I - Science-Fiction-Adventure 
FRUITS - Geschicklichkeitsspiel 

TERRANAUT II - Textadventure 

Für alle CPCs 

Diskette dm 49,— 

CPC Gamebox III 

Brandneu mit 
vier interessanten Spielen: 

ALPHAJET - Weltraumspiel 

KAMPF DEN INSEKTEN - Aktion/Geschick 
TELEFOMANIA - Strategie/Simulation 

FUNBOUNCER -Aktionspiel 

Für alle CPCs 

Diskette dm 39,- 

CPC Power-Spiele-Paket 

18 tolle Spiele für alle CPCs 
4 Disketten dm 70,- 

KNOW 

Unterhaltsames Frage- und Antwortspiel für die ganze 
Familie mit Editor. Grafikdarstellung und automati¬ 
schen Suchroutinen 

Für alle CPCs 


Das Software-Experiment 

Eine Serie von zehn hochinteressanten Ausflügen in 
die Welt der Computergrafik, Simulation und Künst¬ 
lichen Intelligenz mit insgesamt 17 Programmen und 
einem umfangreichen 180-seitigen Handbuch: 
Wordmaster, lernfähiges Mini-Schach, Öko-Simulation 
und andere. 

Autor: Matthias Uphoff 


Für alle CPCs 


Kassette 

DM 59,— 

Diskette 

DM 69,— 

| Bücher | 

CPC Bücherkiste 


Aus dem SYBEX-Verlag 


Schneider CPC - Arbeiten mit dBASE II 

DM 48,— 

Schneider CPC - Arbeiten mit Turbo Pascal 

DM 48,— 

Das Schneider CPC Grafikbuch 

DM 48,— 

Schneider CPC - Erfolg mit Multiplan 

DM 48,— 

Schneider CPC Assembler-Kurs 


Buch und Kasette 

DM 59,— 

Buch und Diskette 

DM 69,— 

Aus dem DATA-BECKER-Angebot 

Das Floppybuch zum CPC 

DM 49,— 

Das CP/M-Tralningsbuch zum CPC 

DM 49,— 

Das Maschinensprachebuch zum CPC 

DM 39,— 

Das große Grafikbuch zum CPC 

DM 49,— 

Taschenbuch: Führer zum CP/M 

dm 19.80 

Das große Buch der 


Pubiic-Domain-Software: 

Freie CP/M-Programme für Commodore 128, 

Schneider CPC und Joyce 

dm 34.80 

Das BASIC-Buch zum 6128 

DM 39,— 

CPC Hardware-Erweiterungen 

DM 49,— 


Unabhängig von der Anzahl der bestellten Produkte 
berechnen wir für das Inland DM 4,- bzw. für das 
Ausland DM 6,- Porto und Verpackung. 

Bitte benutzen Sie die Bestellkarte. 


Diskette 


DM 


29,- 
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Preiswerter VGA-Zusatz für den 
PC 1512 



Wer bis jetzt mit dem Enhanced Graphics Adapter (EGA) “zufrieden“ sein 
mußte, kann nun mit relativ geringem finanziellen Aufwand sogar zu VGA 
(Video Graphics Array) “aufsteigen“. Das kann beim Schneider PC 1512 
bedeuten: Von CGA führt über EGA auch ein Weg nach VGA! 


Wie ist das möglich? Nun, Vorausset¬ 
zung ist eine EGA-Karte mit “Feature 
Connector“ und ein EGA-fähiger Bild¬ 
schirm. Wer einen Schneider PC 1512 
besitzt (CGA) und bereits auf EGA 
aufgerüstet hat, ist somit auch im 
Rennen. 

Für 269,— DM erhält man ein kleines 
Päckchen mit dem VGA-Aufrüstsatz. 
Er besteht aus zwei DIN-A5-Broschü- 
ren in englischer Sprache, zwei Disket¬ 
ten und einer 2,8x4,8 cm kleinen “Pla¬ 
tine“ mit Steckerleiste und eingebau¬ 
tem Quarz. Wie kommt man nun in den 
VGA-Genuß? 

Des Rätsel Lösung: Die “Platine“ wird 
auf den “Feature Connector“ aufge¬ 
steckt, ein mitgelieferter Treiber und 
ein Aktivierungsprogramm sorgen da¬ 
für, daß nach dem Einschalten des 
Computers der EGA-Modus ab- und 
der VGA-Modus angeschaltet ist. Wo 
aber sitzt nun der “Feature Connec¬ 
tor“? Wie heißt der Treiber und wo 
muß er gegen was ausgetauscht wer¬ 


den? Muß der Bildschirm justiert wer¬ 
den? Gibt es Schriftfonts für die ver¬ 
schiedenen VGA-Modi? Diese und 
weitere Fragen beantworten die beiden 
mitgelieferten Broschüren. Sie sind in 
englischer Sprache verfaßt, da der Her¬ 
steller amerikanischer Herkunft ist, die 
Themen sind jedoch gut verständlich 
abgehandelt und reichlich bebildert. 

Ohne Hardware geht’s nicht.... 

Beginnen wir mit der Hardware, da 
diese auch zuerst installiert werden 
muß, bevor die softwaremäßigen 
Schritte unternommen werden können. 
Ein Beiblatt zu der 38seitigen Hard¬ 
ware-Broschüre informiert über die 
Monitor-Klassen “Standard-EGA“ 
und “Autosync“-Monitore. Darüber 
hinaus stehen im Beiblatt noch Infor¬ 
mationen, die in der Hauptbroschüre 
fehlen beziehungsweise diese ergän¬ 
zen. In deutlichen Schritten wird zu 
Beginn geschildert, wie man die EGA- 


Karte, die “modifiziert“ werden soll, 
aus dem System entfernt. Im Anschluß 
daran behandelt die Broschüre 15 ver¬ 
schiedene EGA-Karten ausführlich auf 
jeweils zwei Seiten pro Karte mit Foto¬ 
grafie und dazugehörigem Text. Für 
jede Karte (und solche, die baugleich 
oder zumindest ähnlich sind) wird ge¬ 
nau angeführt, wo die mitgelieferte 
“Platine“ aufzustecken ist und welche 
Jumper (Steckbrücken) gegebenenfalls 
umgesetzt werden müssen. Folgende 
EGA-Karten sind dabei berücksichtigt: 

— ATI EGA Wonder 

— BOCA Multi-EGA 480 

— Everex Micro Enhancer 

— Genoa Super EGA Hires 

— Tecmar EGA Master 800 

— IBM EGA 

— Logitech EGA&Mouse 

— Paradise Autoswitch EGA 350 

— Paradise Autoswitch EGA 480 

— PC 's Limited EGA ’ 

— STB Multi-Res II 

— Tseng Labs EVA 480 

— NEC EB-I 

— Video- 7 VEGA 

— Quadram QuadEGA' 

— Hewlett Packard EGA 

— Video-7 VEGA Deluxe ’ 

— Quadram QuadEGA Prosync 

— Magnavox EGA 480 

— Video-7 VEGA VGA 

— Thomson EGA (Ultra Version) 

— Renaissance GRX 

— Legacy II 

— NSI Epic 480 

— NSI Logic Smart EGA Plus 

— AST3G 

— AST 3G Plus 

— ATI MegaGraph EGA. 


Abschließend wird der Vollständigkeit 
halber auch gesagt, wie man die ausge¬ 
baute Karte wieder einbaut. Es ist da¬ 
bei nur schwer vorstellbar, daß der not¬ 
wendige technische Eingriff (Ausbau 
EGA-Karte, Aufstecken “Platine“, 
Einbau EGA-Karte) auch nur die klein¬ 
sten Schwierigkeiten aufkommen läßt 
— wenn es sich bei der eigenen Karte 
um eines der hier aufgeführten Modelle 
(oder ein baugleiches Modell) handelt. 
Sogar der Tatsache, daß bei den Para- 
dise-EGA-Karten ein Zwischenstück 
(Extender) benötigt wird, da ein 
Bauteil vor dem “Feature Connector“ 
etwas zu hoch ist, wird Rechnung ge¬ 
tragen. Wahrlich, hier brauchte kei¬ 
nen Techniker. Wer bei der Bestellung 
angibt, daß er eine Paradise-EGA-Kar- 
te hat, bekommt den Extender gleich 
mitgeliefert. 
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...und ohne Software auch 
nicht! 

Die benötigte bzw. beigegebene Soft¬ 
ware findet Platz auf zwei Disketten. 
Wie sie benutzt werden kann bezie¬ 
hungsweise wie sie installiert werden 
muß, beschreibt die zweite Broschüre 
auf 90 Seiten, die ebenso akribisch aus¬ 
geführt sind wie die Hardware-Be¬ 
schreibung. Hier ein kurzer Überblick 
über den Inhalt der Handbücher und 
der Software: 

Einführung 

Allgemeine Einführung, Darstellung 
der Vorteile gegenüber EGA (ver¬ 
schiedene Schriftarten, erweiterte Dar¬ 
stellungs-Formen sowohl im Text- als 
auch im Grafik-Modus, verbesserte 
Bildschärfe usw.) sowie Anleitung 
zum Gebrauch dieses Buches. 

Kapitel 1 

Disketten-Inhalte, Installieren der 
Hardware, SETUP-Beschreibung für 
die einmalig notwendige Software-An¬ 


passung an die Hardware, Justage des 
Bildschirms per Software-Unterstüt¬ 
zung über Cursor-Tasten und die Re¬ 
gelknöpfe am Bildschirm (auch nur 
einmal zu Beginn notwendig), Installa¬ 
tion des Treibers, der ANSI.SYS er¬ 
setzt sowie die Einbindung des VGA- 
Aktivierungs-Programms in die 
AUTOEXEC.BAT-Datei. Nur durch 
dieses Aktivierungs-Programm (UV) 
entweder aus einer Batch-Datei heraus 
oder als Eingabe auf der Kommando¬ 
zeile wird die VGA-Erweiterung wirk¬ 
sam. Ohne diese Aktivierung arbeitet 
man trotz eingebauter Erweiterung 
“nur“ im alten EGA-Modus. 

Kapitel 2 

Bedienungsanleitung der menügesteu¬ 
erten Programme 

UV 

(Auswahl der Darstellungsart, der 
Farbgebung und des Zeichensatzes) 
und 

UVCOLOR 

(Festlegen und Speichern von Farbein¬ 
stellungen für die verschiedenen Appli¬ 
kationen wie WORD, Lotus 1-2-3 und 


viele, viele mehr) sowie der Komman¬ 
dozeilen-Versionen von 
UV und UVCOLOR. 

Kapitel 3 

Hier werden die Möglichkeiten be¬ 
schrieben, die für die verschiedensten 
Applikationen, auch DOS-Komman- 
dos wie DIR und MORE, zur Verfü¬ 
gung stehen, um diese von Haus aus 
nicht VGA-fähigen Programme eben¬ 
falls im VGA-Modus arbeiten zu 
lassen. 

Kapitel 4 

Tips, Tricks und Techniken im Um¬ 
gang mit den neuen Fähigkeiten des 
Computers dürfen nicht fehlen. So 
werden hier die Behandlung von spei¬ 
cherresidenten Programmen, Grafik¬ 
programmen, Programmen mit ver¬ 
schiedenen Text-Modi und Batch-File- 
Einbindungen besprochen. 

Anhang A 

Auch an die Programmierer ist ge¬ 
dacht. Die zusätzlichen, über EGA hin¬ 
ausgehenden Programmier-Schnittstel- 
len der Neuerwerbung werden hier ab¬ 
gehandelt. 



gesucht 


Für unsere ständige PC-Rubrik suchen wir BASIC2- 
Programme sowie Tips & Tricks. 

Alles, was Sie tun müssen, ist Ihr selbstgeschriebe¬ 
nes Programm und die entsprechende Bedienungs¬ 
anleitung als Textfile auf Datenträgerzu speichern 
und uns diesen zuzusenden. 

Als Lohn für Ihre Mühe winkt ein entsprechendes Ho¬ 
norar, das wir nach Begutachtung de$ Programmes 
mit Ihnen besprechen. 

Übrigens liegen die besten Programme meist in den 
Schubladen (wo sie absolut nichts zu suchen haben) 
und werden aus fehlender Überzeugung nicht einge- 
sandt. 

Da wir grundsätzlich jedes Programm ausführlich be¬ 
gutachten, könnte Ihre Einsendung, versehen mit un¬ 
seren Verbesserungsvorschlägen, vielleicht der Hit 
des nächsten Monats werden. 

Also, auf bald.... 


Einsendungen bitte an den 

DMV-Verlag • PC-Redaktion 
Postfach 250 * 3440 Eschwege 


Softwareautoren für 
die Amstrad Computer 
gesucht. 

Haben Sie nicht auch schon einmal daran gedacht, ein gutes Programm, das 
Sie selbst geschrieben haben, zu veröffentlichen ? 

Warum sollten nicht auch andere Leser in den Genuß Ihrer Mini-Dateiverwal¬ 
tung, Grafikerweiterung. Tips, Tricks, Tools, Utilities, Simulationen. Games 
usw. kommen? 

Wirklich gute Software, die den Anforderungen unserer Leser genügt, wird 
von uns entsprechend honoriert. 

Sie sollten jedoch bei der Einsendung Ihres Programms ein paar Punkte be¬ 
achten. 

Wenn Sie Nachstehendes befolgen, wird Ihre Post zügig und ohne große 
Rückfragen und Verzögerungen bearbeitet: 

Senden Sie uns Ihr Programm mit 

(a) allen benötigten Files auf der mit dem Programmnamen bezeichneten Dis¬ 
kette. 

(b) den kompletten Ausdrucken/Listings aller Files der Diskette. 

(c) einer Beschreibung Ihres Programms und 

(d) einer genauen Bedienungsanleitung. 

Die Bedienungsanleitung und die Beschreibung sollten als Textdatei mit auf 
der Programm-Diskette enthalten sein. Wichtig für uns zu wissen wäre noch, 
mit welcher Konfiguration Sie arbeiten, welchen Drucker Sie benutzen, ob Sie 
ein zweites Laufwerk angeschlossen haben usw... 

Wenn Sie der Meinung sind, ein solches Programm geschrieben zu haben, 
dann nichts wie einschicken an den 

DMV Verlag ■ Red. PC International 
Abtlg. CPC/Joyce/PC 
Postfach 250 ■ 3440 Eschwege 

Geben Sie bitte in der Adresse die für Ihren Amstrad Computer (CPC, Joyce. 
PC) zuständige Abteilung mit an, damit Ihr Programm direkt in die richtigen 
Hände gelangt. 
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Abb.l: Dieses unscheinbare Platinchen bildet die gelieferte Hardware, 
die aus einem PC 1512 mit EGA-Karte einen VGA-Computer macht. Zu¬ 
sammen mit der dazugehörenden Software... 


Abb.2: ...lassen sich solche Bilder auf dem EX'-EGA-Monitor darstel¬ 
len, aber auch die Textdarstellung wird wesentlich verbessert 


Anhang B 

Auflistung der Meldungen, die bei der 
Benutzung der Treiber bzw. der ver¬ 
schiedenen Programme auftreten 
können. 

INDEX 

Ein abschließender Index rundet das 
Buch ab und gibt dem Leser über das 
ausführliche Inhaltsverzeichnis hinaus 
eine weitere Möglichkeit, gesuchte In¬ 
formationen schnell auf- und wiederzu¬ 
finden. 

Mitgelieferte Software 

DISKETTE 1 
(Programme) 

Neben einer 
README-Datei 

(7,5 Seiten ASCII-Text!) mit Hand¬ 
buch-Ergänzungen / -Erweiterungen 
und dem SETUP-Programm 
UVSETUP 

sind hier in zwei Katalogen die Treiber 
für die verschiedenen Applikations- 
Anpassungen und Bildschirm-Darstel- 
lungs-Arten (42 Treiber) sowie die di¬ 
versen Programme für den Betrieb der 
VGA-Modi inklusive einer DEMO (11 
Programme) untergebracht. 

DISKETTE 2 (Fonts) 

Drei Kataloge voller Font-Dateien ver¬ 
schiedenster Schriften in allen Größen, 
die unter VGA möglich sind, werden 
auf dieser Diskette geliefert (insgesamt 
95 Fonts). 

Zusammenfassung 

Der Lieferant bietet ein rundum voll¬ 
ständiges Produkt an. Man ist zwar et¬ 
was erstaunt über das “Mißverhältnis“ 
zwischen der Hardware einerseits und 


der Software/Literatur andererseits, 
aber dies liegt nun in der Natur der Er¬ 
weiterung von EGA auf VGA. Einem 
kleinen Hardware-Aufwand steht eine 
Menge Software gegenüber, die erfor¬ 
derlich ist, um alle Möglichkeiten von 
VGA zu nutzen. Dies basiert auf zwei 
Tatsachen: 

1) VGA bietet sehr viele Möglichkei¬ 
ten, dafür braucht’s halt viel Software 
und Fonts, um dies auch “zeigen“ zu 
können. 

2) Die bestehende Anwendungs-Soft¬ 
ware nutzt in recht wenig Fällen die 
VGA-Modi. Um dem sozusagen 
“nachträglich“ abzuhelfen, ist Zusatz- 
Software notwendig — und die liefert 
der Vertreiber. 

Installation 

In maximal fünf Minuten kann der 
Hardware-Teil erledigt sein, da er sich 
lediglich auf Ein- und Ausbau der 
EGA-Karte und Aufstecken der klei¬ 
nen Platine in einen bereits bestehen¬ 
den Sockel beschränkt. Etwas aufwen¬ 
diger ist der zweite Schritt - die Soft¬ 
ware-Installation. Aber auch hier hilft 
die ausgezeichnete Dokumentation, in 
relativ kurzer Zeit alle Arbeiten zu er¬ 
ledigen. Die weitaus meiste Zeit wird 
man wohl damit verbringen, nach er¬ 
folgreicher Installation die neu zur 
Verfügung stehenden Fähigkeiten mit 
allen möglichen Spielarten auszupro¬ 
bieren, bevor man dann zum Alltag 
übergeht und diese Dinge einfach nur 
noch nutzt. 

Erworbener Zusatz-Nutzen 

— bis zu 600x480-Grafik-Auflösung 

— bis zu 64 Farben gleichzeitig 

— 95 verschiedene Fonts 

— Darstellungswechsel per Menü 

— Darstellungs wechsel per Kom¬ 
mando 


— Unterstützung von Anwendungs¬ 
programmen 

Der Preis scheint angesichts des winzi¬ 
gen Hardware-Teils zunächst ein biß¬ 
chen happig. Es ist jedoch so, daß die 
Hardware nur ein Teil der Gesamtliefe¬ 
rung ist (und davon der kleinste) und 
damit nicht der Maßstab für Preis und 
Leistung sein kann. Der Maßstab ist 
die Gesamt-Lieferung, die gute Quali¬ 
tät, die Vollständigkeit und die ausge¬ 
zeichnete Unterstützung sowohl bei der 
Installation als auch beim Betreiben der 
eigenen Anwendungen. Aus diesem 
Blickwinkel betrachtet, kann das Ver¬ 
hältnis als durchaus angemessen be¬ 
zeichnet werden. Wer die oben aufge¬ 
führten Vorteile der VGA-Modi ge¬ 
genüber den EGA-Modi benötigt oder 
diese gerne nutzen möchte, ist mit dem 
Erwerb dieses Produkts sicherlich gut 
beraten. Um es auf einen Nenner zu 
bringen: Auch für den Schneider PC 
1512 (er muß bereits EGA-Fähig sein) 
lohnt diese Anschaffung, wenn VGA 
gewünscht wird. Von all den geschil¬ 
derten Fähigkeiten muß lediglich ein 
Abstrich gemacht werden: Zusammen 
mit der Paradise-EGA-Karte von PC- 
Technik scheinen lediglich 16 Farben 
zu einer Zeit darstellbar zu sein. Alle 
anderen Vorzüge jedoch stehen zur 
Verfügung. 

(Hans Kleiner/jb) 


Info: 

Name: UltraVision 

Funktion: VGA-ZusatzJiir EGA-Karten 
Hardware-Anforderung: PC 1512 mit EGA- 
Karte 

Anbieter: Altronic Data Systems GmbH, 
Puchheimer Str. 10, 

D-8038 Gröbenzell 
Preis: 269, - DM 
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Jetzt neu bei DMV 


Das Buch zum JOYCE! 



Platinenlayouts im Buch 


Weiterhin erhältlich: 

- doppelte Platine, geprüft 

- 3“-Diskette mit allen Dateien und Programmen 


Alle Besitzer eines PCW 8256/8512/9512, die 
ahnten, daß der Horizont ihres Computers weit 
über LocoScript hinausgeht, finden jetzt die 
Bestätigung: 


Sprachen: 

- LOGO als Grafiker 

- komplette Befehlsübersicht 

- BASIC: Erläuterungen aller Befehle 
mit Beispielprogrammen 

- JETSAM: Generator für JETSAM- 
Verarbeitung 

- Kurzübersicht: Turbo Pascal & C 

Programmierhilfen, Interna, Tips und 
Tricks: 

- Steuercode-Tabellen für Bildschirm 
und Drucker 

- XBIOS-Routinen 

- OUTs und POKEs unter BASIC 

Hardware 

- Speichererweiterung 

- Zweitlaufwerk 

- Druckkopfreinigung 

- Bildschirminverter 

- Schnittstelle am Expansionsport 

- Sprachsynthesizer 


m 


Aus dem Inhalt: 


8256/85 


12/9510 


JOYCE - mehr als ein Text¬ 


system 

Die Autoren, in der JOYCE-Szene keine 
Unbekannten, haben auf über 300 Sei¬ 
ten alles Wissenswerte über die “ande¬ 
re Seite“ der PCWs zusammengetra¬ 
gen. Anfänger wie Profis, Anwender wie 
Programmierer finden in diesem Buch 
einen reichen Schatz an Tips und Tricks 
sowie ein unentbehrliches Nachschla¬ 
gewerk. Erstmals wird auch in einem 
Buch zum PCW ein “heißes Eisen“ aus¬ 
führlich behandelt: die Hardware. Die¬ 
ses Kapitel zeigt völlig neue Möglichkei¬ 
ten des JOYCE - so wird beispielswei¬ 
se der Anschluß eines Sprachsynthesi¬ 
zers und der Selbstbau einer Schnitt¬ 
stelle besprochen. 

Ausführliche Kapitel über BASIC und 
LOGO erlauben Ihnen, diese Sprachen 
auszureizen: Anfänger, die sich erst¬ 
mals in der Programmierung versuchen 
wollen, finden durch sinnvolle kurze Bei¬ 
spielprogramme wertvolle Unterstüt¬ 
zung. Ein besonderes “Schmankerl“ ist 
das große Extra-Kapitel zur 
Dateiverwaltung! 


Bestellkarte im Buch 


JOYCE - mehr als ein Text¬ 
system 

Bestellnummer: 404 

324 Seiten mit farbigen Abbildungen 

Hardcover, gebunden 

ISBN 3-926177-02-0 


69.- DM 

Wenn Sie über den DMV-Bestellservice bestellen, gilt folgendes: 


Inland: 

Einzelpreis 

69,- DM 

Ausland: 

Einzelpreis 

69,- DM 

zzgl. Versandkosten 

4,- DM 

zzgl. Versandkosten 

6,- DM 

Endpreis 

73,- DM 

Endpreis 

75.- DM 


Bitte benutzen Sie die Bestellkarte. 

DMV-Verlag ■ Postfach 250 - 3440 Eschwege 


/ / /Daten* und 

Medienverlag 
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Biete Software 


- - > DIESMAL NUR TEST-SIEGER 

aus PC International!!! 

KICK CP/M Benutzerob. PCI 2/88 

WORDSTAR-ZUBEHÖR PCI 7/88 

je 49,- DM 

TOPDAT Adreßverwaltg. PCI 4/89 

DB-ASSI PCI 7/89 DBASE Benut¬ 
zeroberfläche, Pull-Down-Menüs 

je 79,- DM 

ZWEITLAUFWERK 5,25" CPC 6128, 
CPC 664, EURO PC, AMSTRAD 2x86 
FÜR NUR 249, - DM III Test PCI 6/89 
NEU: JOYCE Laufwerke ab 338,- DM! 
NEU: HOTLINE DIE 18.00-19.00 Uhr! 
NEU: Gratisprospekt für Sie! 
EINFACH BESSER: 
acw-soft Tel. 0228/636818, 

Breite Str. 16, 5300 Bonn 1 
■■■■■■■■■■■■■■■■ G 


Astrologie mit Computer 
International geschäfte Astro¬ 
logenprogramme, professionelle 
Deutungsprogramme, Lernprogramme 
für Anfänger, Handschriftanalyse, 
Bio-Rhythmus, Astro-I-Ging. 

Info gegen DM 2,- in Marken. 

Astron, K.W. Bonert, Peter-Marqu.- 
Str. 4a, 2000 Hamburg 60 G 


Wirtschaftliche Programme 

für die Arztpraxis auf 

dem Schneider CPC, Joyce, PC 

Fa. EFFEKTA, Am Wiggert 9c 

4500 Osnabrück, Tel. 0541/442416 G 


T-PASCAL 3" DM 100, 07022/78472 


**.EXPO-SOFT ********** 

Immer aktuell und superschnell 
Public Domain & Free-Software 
IBM/Schneider PC + Kompatible 
Disk, ab DM 180 - Gratisinfo 
S. Schülke, Wuppertaler Str. 130 
5650 Solingen 1, Tel.: 0212/5912 08 G 


STEUERMAT: Lohn-und Einkommen- 
steuer88; Ausdruck direkt auf die An¬ 
tragsformulare, Analyse, Tabelle, alle 
Einkunftsarten, jährliche Aktualisie¬ 
rung (20,- DM) 89,- DM 

FORMULARPRINT: 
DIN-A4-Formularbearbeitung, 40,- DM 
FIBUMAT: Einnahme-/Über- 
schuß-Rechnung, Kassenbuch, Kon¬ 
tenlisten, Ergebnisabrechnung, 
USt.-Voranmeldung, Funktionstasten 
frei belegbar, 142,- DM 

Für JOYCE: 3" oder IBM-PC:5,25" 
u.3,5", Demo: 15,- DM, Info: 80Pf, RP 
FFSW, Farin, Elisabethstr. 65, 

4460 Nordhorn, Tel.: 0 59 21/1 37 57 


** Dias ordnen mit Computer ** 

CPC 464/664/6128, JOYCE und PC 
bis zu 100000 Dias; Suchzeit 
1 Sekunde. Info gegen Rückporto 
bei: Dipl.-Ing. W. Grotkasten, 
Birnenweg 6,7060 Schorndorf 
Tel. 071 81/42846 


ACHTUNG II ERWACHSENE 

10 Disk. 5 1/4" oder 3 1/2" mit delikaten 
Programmen f. IBM PC/Kompatible 
Nur DM 50, -, VS/Bar. M. Karbach 
Remscheiderstr.18, 5650 Solingen G 


JOYCE: Ständig laufende Uhr 
auf Bildschirm. Info geg. Rück¬ 
porto. Theresienstr. 9 
7888 Rheinfelden, Mi. Bückel 


Public Domain & Free-Software. 
IBM/Schneider PC u. Kompatible. 

Disk, ab DM 180, Gratiskatalog 
M. Karbach, Remscheiderstr. 18 
5650 Solingen 1, Tel.0212/43140 G 


PD-SERVICE-LAGE bietet Ihnen: 
Public-Domain, Freeware und 
Shareware zum fairen Preis!! 
Kopierkosten: 4.50-2.70 DM !l 
Alleinvertriebsrecht für: 

PC-TEXT 2.0 von ROLAND OTTER: 
Textverarbeitung/Adreßverw. & 
Rundschreibmodul in eins III 
ü. 500 dtsch. Progr. 11230 Disk- 
PD-Spiele, neuste intern.PD I 
Kat.f.lBM/kompat. g. 180 Porto 
PD-SERVICE-LAGE: Bernd Schulz 
Hasselstr.38,4937 Lage/Lippe 
Auch alles auf 3.5" lieferbar! 

Neu bei uns: Low-Cost-Software! G 


CPC & JOYCE PUBLIC DOMAIN 

Ein Info ist für 2 x 100 Pf erhältlich 
PDI, Pf 11 18, D-6464 Linsengericht G 


KONVERTIERE JOYCE-TEXTE ALLER 
ART INS DOS-FORMAT 0431/35296 


Biete Hardware 


SENSATION AMIGA + ZUB. V. B. 
1450 DM, C64 NEU VB 290 DM, 
Wolfgang Brüning, Goldaperstr. 25, 
4400 Münster 41 


Gebrauchtcomputer mit Garantie 
AMSTRAD - SCHNEIDER - PEACOCK 
CPC, JOYCE, PC, XT, AT * 
HARDWARE-SOFTWARE-LITERATUR 
Ersatzteile & Reparaturdienst 
ALLES zu echten Superpreisen. 
Ständiger Ankauf 
Höchstpreise für Ihren "ALTEN" 
bei Computer-NEUKAUF III 
Katalog anford. (2,- DM in Marken) 
EDV-CLOOTS, 5132 Übach-Palenberg 
Zeisstr. 7, Tel.: 02451/46608 G 


JOYCE PCW 8512, VIEL ZUBEHÖR, 
1.250 DM, TEL 06562/3072 G 


Verkaufe 10 Disketten (MF 2DD) 
ungebraucht für DM 60, - I! 
Stefan Laier, Flurweg 10, 

7617 Oberharmersbach 


CPC 464 Farbe + DD1, Progr.: Budget 
- Manag., CONTEXT, DISCOLOGY u.a. 
Disk. u. Cass., Lit.: DATA BECKER, 

CPC Int. 3/85-5/89, 

G VB 1200.- DM, Tel.0561/87 7412 


Lichtgriffel nur DM 49,- 

Versand gegen Scheck/Nachnahme 
Info gratis! Computer angeben! 
Anschluß an jeden (!) Computer 
möglich. Standardversion für 
Amstrad lieferbar. Firma Klaus 
Schißlbauer, Postfach 1171R, 

8458 Sulzbach, Tel. 09661/6592 
oder 0941/999915 bis 21 Uhr G 


VERKAUFE CPC 464 grün, DDI-1, 
VORTEX F1-S. Tel. 05346/1331 


Suche Software 


JOYCE: TURB. PAS. 3.0, 05031/4639 


T-PASCAL f. Joyce 07022/7 84 72 


SUCHE: LOCOFILE U. LOCOFONT 
BIETE dBASE II, LOCOSCRIPT 2, OR. 
GRAPH, DR. DR.DRAW, WORD¬ 
STAR^ ULTIP.,TEL.O 30/7 92 94 35 


Suche Hardware 


Suche Schneider-Zweitlaufwerk 
3"für CPC 464,Angebote ab 18.00h 
an Hoffmann, 04503/5985 


Verschiedenes 


Konvert. CP/M nach MS-DOS, CPC + 
JOYCE, Texte + Dat. mit IBM-Uml. 
Info: J. Debus, Gärtnerweg 25 B, 

6382 Friedrichsdorf, Tel. 061 75/544 G 


Disketten-, Datenkonvertierung 
JOYCE, CPC auf MS-DOS, ATARI 
Bernd Drost, Schulstr. 67 
6382 Friedrichsdorf, T. 0 6715/6 04 G 


PCW 8256, mit Literatur 

Div. Programme PC INT. ab 3/86 + 4 SH 

VB 1200 

T. Groffmann, Goethestr. 19 
7126 Sersheim 


Wer kann mir die beiden BEDIE¬ 
NUNGSHANDBÜCHER für den JOYCE 
(PCW 8256) besorgen. Melden 
bei Karl Hecker, Berndorfer Weg 10, 
5000 Köln 91,0221/8301623 


AMSTRAD PC 1512/1640 USER-CLUB 
bietet mtl. Zeitschrift, Software, 

Hilfe und mehr für alle. 

Inf. gg. Rückp. von Rolf Knorre, 

Postf. 2001 02, 5600 Wuppertal 2 


Club 


USER-CLUB 

FÜR JOYCE-ANWENDER I 

Info gegen 80 Pf. Rückporto von: 
JOYCE-USERCLUB c/o Je. Berghof, 
Roseggerstr.5, 5600 Wuppertal 2 


Edelsbacher Computerclub 
ATARI-ST., AMIGA, MS-DOS-Com- 
puter 

Christian Steiner 
A-8332 Edelsbach 99 


Das ist 
Ihre 

Chance.. 

Schon eine Kleinanzeige 
bringt oftmals großen Er¬ 
folg und hilft, neue Kon¬ 
takte zu knüpfen. 

Nutzen Sie unser Ange¬ 
bot und profitieren Sie 
von der Tatsache, daß 
unsere Zeitschrift 

»PC INTERNATIONAL« 

jeden Monat von zigtau¬ 
send Computer-Interes¬ 
sierten gelesen wird. 
Möchten Sie etwas ver¬ 
kaufen, tauschen, oder 
suchen Sie das »Tüpfel¬ 
chen auf dem i« - dann 
sollten Sie die eigens 
hierfür bestimmte Be¬ 
stellkarte im Heft ausfül¬ 
len und an unseren Ver¬ 
lag absenden. 

Ihre Annonce erscheint 
dann in der nächster¬ 
reichbaren Ausgabe. 

Wir möchten ausdrück¬ 
lich darauf hinweisen, 
daß wir keine Anzeigen 
veröffentlichen, aus de¬ 
nen ersichtlich ist, daß 
es sich hierbei um Ver¬ 
äußerungen von Raub¬ 
kopien handelt. 

Des weiteren machen 
wir darauf aufmerksam, 
daß indizierte Computer¬ 
spiele nicht in Form von 
Anzeigen beworben wer¬ 
den dürfen. 
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JOYCE-PCW Sonderhefte 2 und 3 zum Preis von einem! 
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DMV braucht Platz für neue Ideen - darum müssen wir unsere Lager räumen. 

Allen JOYCE-Besitzern machen wir deshalb ein einmaliges Angebot: 

JOYCE Sonderheft 2 und Sonderheft 3 sind ab sofort im Kombi-Pack zum Preis von 20,- DM beim Verlag zu beziehen 
- Sie sparen 50% gegenüber dem Einzelpreis! 

JOYCE Sonderhefte sind Sonderpublikationen der PC AMSTRAD International und bieten jeweils auf 120 Seiten 
ausschließlich erstmalig veröffentlichte Beiträge. Tips und Tricks zu PCW 8256, 8512 und 9512. 

Außerdem gibt es zu jedem JOYCE Sonderheft eine Databox, die alle im Heft veröffentlichten Programme lauffähiq 
auf zwei 3“-Disketten enthält. Die Databox ist nicht im Frühlingsaktions-Preis inbegriffen. 


Aus dem Inhalt 
JOYCE Sonderheft 2: 

Programme: 

Adreßverwaltung 

Archivprogramm (Video-oder Literaturverwaltung) 
PASCAL-Compiler in BASIC 
Suburbia (Spiel ähnlich Monopoly (R)) 
Turbo-PASCAL-Grafikroutinen ohne Gf 
Komfortable Balkengrafik 


SX 


Tips: 

JOYC 


i'CE-Zweitlaufwerk selbst anschließen 
3-D-Plotter 

Etikettendruckprogramm 
Ordnung auf der Diskette mit LocoScript 
Funktionstasten selbst belegen 
Spaltensatz unter LocoScript 
dBase-Handbuch selbst ausdrucken 
LOGO- Funktionenzeichner 


Aus dem Inhalt 
JOYCE Sonderheft 3: 

Programme: 

Vokabeltrainer 

RAM-Monitor-Speicherlnhalte verändern 
Memory-Spiel 
Mini-DTP-Programm 
Drucker-Spooler unter CP/M 
Disketten-Kopierprogramm bis 43 Spuren 
Reset ohne Datenverlust 

Tips: 

Grafik auf dem JOYCE-Drucker 
Tastaturbelegung unter CP/M und 
LocoScript ändern 
Reset ohne Datenverlust 
Super-Werkzeugkiste dBase 
Grafikutilities für LOGO 


JOYCE Sonderheft 4 

Jetzt 120 Seiten! Supersoftware und Informationen. 


Aus dem Inhalt: 

- Strickmustergenerator 

- WordStar-Verbesserungen 

- Bundesligasimulator 

- Super Reaktionsspiel 

- FILEMANAGER 

- Pulldown-Menüs 

- Stichwortverzeichnis 

- Astrologieprogramm 

- Diskettenmonitor 

- Hauptstädte raten in LOGO 

- Statuszeile für dBase und Basic 

- Hardcopyroutine für 24-Nadler 

- LOGO macht Schachteln 

- dBase-Literaturverwaltung 

- Universelles Werkzeug zur Veränderung von 
dBase-Dateien 


JOYCE Sonderheft 4 

Best.-Nr. 367 20,- DM* 


JOYCE DATABOX Sonderheft 4 

Hier finden Sie alle Programme und Dateien 
auf vier Diskettenseiten. 

470 KB nur vom Besten... 

Und dennoch behalten wir die alten Preise bei! 
Das Leistungsverhältnis, das sich für Sie 
bezahlt macht. 

Erhältlich als 3“-Disketten für alle 
PCW 8256/8512/9512 

Diskette 1 enthält alle Programme lauffähig. 
Diskette 2 enthält die Quellcodes. 

Disk. 1 : Best.-Nr. 3671 30,- DM* 

Disk. 2: Best.-Nr. 3672 24,- DM* 

Kombipack Disk. 1 und 2: 

Best.-Nr. 3673 48,- DM* 

* Unabhängig von der Anzahl der bestellten Artikel 
berechnen wir für das Inland 4,- DM bzw. für das 
Ausland 6,- DM Porto und Verpackung. 


Bitte benutzen Sie die Bestellkarte. 

DMV-Verlag ■ Postfach 250 ■ 3440 Eschwege 

Modienverlag 


















PC-ANGEBOT^ 

ULTRA PACK 
für nur 50,-DM 

erhalten Sie das ultimative Angebot! 



alle 

des 

+ 3 Ausgaben von PC International des Jahres 
1986 aus unseren Restbeständen 

+ 2 Sammelordner zum Archivieren 

Bitte benutzen Sie die Bestellkarte. 

DMV-Verlag - Postfach 250 - 3440 Eschwege 

-- 
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CPC-PRÜGRAMME: 


TIPS & TRICKS: PCW: 


Gitter 

Ein Strategie-Spiel für den CPC, das 
durch seine ansprechende Grafik einen 
langen Unterhaltungswert verspricht. 

Tilgungsberechnung 

Ein umfangreiches Programm zur Be¬ 
rechnung von Zins- und Tilgungssätzen. 
Denn nach den neuesten Gesetzen müs¬ 
sen Zinsen monatlich neu errechnet wer¬ 
den, die von der Kreditsumme abgezo¬ 
gen werden. Früher wurde die Tilgungs¬ 
rate jährlich berechnet und der Kredit¬ 
nehmer mußte damit mehr.zahlen. Durch 
das Gerichtsurteil kann auch rückwirkend 
Geld zurückgefordert werden. 


Rückmeldung in BASIC 
Diskettenfehler in verständlicher Form. 

Ein Hilfsprogramm zur Ausnutzung der 
zweiten RAM-Bank des CPC 6128. 

Verschiedene Schriftgrößen in Mode 0. 

Und natürlich gibt es wieder viele kleine 
1-kByte-Programme (mit großer Wir¬ 
kung) zum Abtippen. 

Und weitere Tips und Tricks für Ihren 
Rechner. 

PC: 


BERICHT: 


Wir testen für Sie den neuen 2386 von 
AMSTRAD. Seine superschnelle Ge¬ 
schwindigkeit und VGA-Grafik sind er¬ 
staunlich. 



Im Test: Der neue 2386-Rechner von AMSTRAD 


Kurvendiskussion 

Mathematische Formeln grafisch darge¬ 
stellt. 

PC-Trickkiste 

In dieser neuen Rubrik zeigen wir unter 
anderem, wie ein formatiertes Listing un¬ 
ter. BASIC2 ausgegeben werden kann. 
Schauen Sie mal vorbei. 

Hotel 

Für Freunde der Simulation haben wir ei¬ 
nen Leckerbissen auf der Pfanne. Wer¬ 
den Sie Besitzer eines gutgehenden Ho¬ 
tels und sorgen Sie dafür, daß Ihre Gäste 
wohlumsorgt sind. Viele Katastrophen 
können Ihnen aber das Leben schwerma¬ 
chen. Werden Sie es schaffen? 

Im Rampenlicht 

Ein Testbericht über das neue PC-Text- 
programm 'Context Pro'. 


Bildschirmaufbau des PCW 

Erfahren Sie Wissenswertes über die An¬ 
steuerung der einzelnen Pixel des 
PCW/JOYCE-Bildschirms. 


Schaltinterface 

Das von der Firma Didakt angebotene 
Schaltinterface zur externen Steuerung, 
zum Beispiel Eisenbahnen, wird von uns 
ausführlich getestet. 



Für den PCW haben wir ein Schaltinterface gete¬ 
stet, mit dem externe Hardware angesteuert wer¬ 
den kann 


Locofile 

Die Firma Wiedmann wartet mit einer 
neuen Version von Locofile auf. Wir zei¬ 
gen Ihnen, wo Verbesserungen vorlie¬ 
gen, und legen Ihnen diese dar. 


DIE INSERENTEN 


ALMAT-DATA.59 

CG-Computerstore.65 

CSV Riegert.65 

DMV.2,25,29,79,83,86,87 

.93,97,99,100,103,104 

DOBBERTIN...55 


G + L electronic.37 

Kosmalla & Partner.59 

KOTULLA.49 

Krebs electronic.71 

PR8-Soft.75 

Schuster.21 


Strauß Elektronik.55 

Weber.63 

Weeske.51 

WERDER.37 

WIEDMANN.71 


102 PC 7’89 




















































Textverarbeitung 


ConText PRO 


Schnell, handlich, flexibel 
Das praxiserprobte Textprogramm 
für den professionellen Einsatz 

Kompromißlose WYSIWYG-Darstellung 
im Grafikmodus: 

Fett-, Kursiv- und Breitschrift “lifo“ auf dem Bildschirm ohne Störung durch 
Steuerzeichen. Darstellung von bis zu 60 Zeilen Text, voll editierbar in allen Schriftarten 

Einfache und blitzschnelle Bedienung: 

Komplette Pulldown-Menüsteuerang, wahlweise mit Maus- und Shortcut-Bedienung, 
ONDO-Funktion, umfassende Hilfe-Fenster und Mausunterstützung in jeder Arbeitsphase. 

Vielseitigkeit und hohes Tempo: 

Alle Textverarbeitungs-Standardfunktionen plus zahlreiche Extras: Editor für PC- 
Blockgrafik mit “Eckenautomatik“ Rechnen im Text auch mit Spaltensumme und 
Durchschnittswerten,.. 

Flexibilität: 

Frei konfigurierbare Tastenbelegung, einstellbare Layoutgrundeinstellung, menügesteuerte 
Druckeranpassung, Serienbrief-Option und Blockfunktionen, auch spaltenweise. 

Für IBM PC/XT/AT und Kompatible ab 256 KByte RAM 
und DOS 2.0. Spezialtreiber für CGA-, EGA-, VGA- und 
Hercules-Grafikkarten, Unterstützung aller Zweitasten¬ 
mäuse. 200 Seiten deutsches Handbuch im Ringordner. 

* Unabhängig von der .Anzahl der bestellten Programme 
berechnen wir fiir das Inland DM 4 - bzw. für das Ausland 
DM 6 - Porto und Verpackung. 

Unverbindliche Prciscmpfehlung 
Bitte benutzen Sie die Bestellkarte. 



mit Konzept 


Bedarf an Tabellen, Statistiken oder Aufstellungen? ConText PRO kann’s: 
Summenfunktionen und Durchschnittswerte fiir Produkt, Zeile und Spaltenblock 
bearbeiten menügesteuert und cursororientiert die erforderlichen Zahlenwerte. 


Datun/Po4. 

A22.77/1 

822.77/2 

827.08/3 

82.03.88 

295,- 

261,33 

625,- 

85.04.88 

51H,- 

522,66 

1100,- 

30.04.88 

225,- 

427,64 

625,- 

31.05.88 

145,- 

142,55 

475,- 

38.06.88 

290,- 

261,33 

465,- 

31.07,88 

175,- 

229,24 

415,- 

31.00.88 

150,- 

329,20 

455,- 

3B.09.88 

ISS,- 

172.48 

772,52 

31.10.88 

ISS,- 

172,40 

1125,18 

30.11.88 

108,- 

172,48 

1294,34 

31.12.88 

140,- 

199,76 

1212,22 

31,81,89 

195,- 

78,40 

1176,74 

in tlittel 

217,92 

239,97 

011,74 

Sunne 

2615,- 

2879,63 

9748,9 


jesant 


Tc«t *us Puffer 
Zeit schreiben 
Datun schreiben 
Kalender 
Grafikeditor 
Sonderzeicben 
Taste belejen 


Für- griimd I icho Ret 
Zc i ler»— und Spalte 


29838.25 3824.- 47297,08 


innr:Durchschnitte• 
isunnen mit ConText PRO 


Gl 
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MÄUSTREIB^r 


Zusammen mit dem eingebauten Grafikeditor für PC-Blockgrafik und in Verbindung mit 
Breit-, Fett-, Kursivschrift und Unterstreichen lassen sich mit ConText PRO aussage¬ 
kräftige und übersichtliche Tabellen und Statistiken blitzschnell erstellen. 

ConText Pro 

Das Textprogramm für den professionellen Einsatz 

5 1/4-Disk. Best.-Nr. 2407 3 l/2‘-Disk. Best.-Nr. 2408 

ConText PC 

Erprobte Version für den Einstieg 

5 1/4"Disk. Besi.-Nr. 228 31/2-Disk. Best.-Nr 234 

Upgrade auf ConText Pro 

5 1/4-Disk. Best.-Nr 2409 3 1/2-Disk. Best.-Nr 2410 

Demonstrationsdiskette 

5 1/4-Disk. Best.-Nr 0005 


l- DM* 


99.- DM* 
129-DM* 
5.-DM* 


DMV-Verlag • Postfach 250 • 3440 Eschwege 
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Superpack 

Nr. 1-5 


5 Stück = 35, -DM 

Best.-Hr.: 33 


Fast alles wird heute teurer, da ist es 
doch erfreulich, wenn wir Ihnen etwas 
zeigen, was bei gleichbleibender Quali¬ 
tät preiswerter wird: Unsere CPC-Son- 
derhefte 1-5. Sie bieten Ihnen alles, 
was den Prozessor Ihres CPC höher tak¬ 
ten und Ihr Herz höher schlagen läßt. 
Nicht nur Informationen rund um den 
CPC, nein, auch Super- Software zum 
Abtippen, Super-Hardware zum Nach¬ 
bauen. 

*** insgesamt über 1 MegaByte an Pro¬ 
grammen *** bekommen Sie für den sa¬ 
genhaft günstigen Preis von DM 35, -. 
Hier ein kleiner Überblick über diese 
Fundgrube an Computerspaß: 

- Anwendungen: 

Relative Dateiverwaltung, BASIC-Erwel- 
terungen, Datenfernübertragung 
Floppyprogrammlerung, Diskettenmoni¬ 
tor, Soundprogramm. 

- Hardware: 

Anschluß von Zweltfloppies, Bauanlei¬ 
tungen rund um den CPC. 

- Spiele: 

Abenteuer, Actlon, Knobeln, Rollensple- 
le. Tips und Hinweise, falls Sie mal 
nicht weiterkommen. 

- Tips und Tricks: 

Alles über CPC 464/ 664/ 6128, CP/M, 
Assembler. 

Und das Ist nur ein kleiner Querschnitt 
der großen Programmvielfalt der CPC- 
Sonderhefte 1 - 5. 

Also, wenn Sie den Zug nicht verpassen 
wollen - kauten Sie sich geballte CPC- 
Information zum Sonderpreis. 



Jetzt wird es aber 
höchste Eisenbahn,... 



...daß Sie endlich 
unsere CPC-Sonder- 
hefte kennenlernen! 



Kraftfutter für Ihren 
CPC - jetzt zum 
günstigen Preis. 



•,'Sri y/uu 


pnribji 

WUuuh 


Für Vortex : Anwenac« 

DOS-EnN'Mkvuotf 

Di«Mool 

Grundlagen: 1 
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Sonderheft 6/88 

Grundlagen, viele Tips, nützliche Anwendungen und 
tolle Splelprogramme - ein Muß für Jeden CPC-Anwen- 
der. Dieses Sonderheft behandelt das gesamte Spek¬ 
trum möglicher CPC-Elnsatzgeblete und nietet Informa¬ 
tionen für jedermann. U.a. komplette Lagerbuchfüh¬ 
rung, relative und sequentielle Datei, neues Dlsketten- 
DOS, viele Lernprogramme, CP/M und Turbo Pascal 
und, und. und... ___* 

Best.-Nr.: 312 14,- DM 


Sonderheft 7/88 

Wieder eine Fundgrube für CPC-BesItzer: 

Muslc-Star Ist ein tolles Soundprogramm, machen Sie 
Ihren CPC zum Synthesizer. Spiele wie COSMIC, AUXI- 
LIA. SUPERTRON 3D werden Sie in Atem halten. Tips 
und Tricks rund um die CPCs In Assembler, CP/M und 
BASIC. Ein Sprachsynthesizer zum Nachbau, Grundla- 

S en über die Floppy- Programmierung - alles das fln- 
en Sie Im Sonderheft 7. 

Best.-Nr.: 313 14,- DM 



eo «»«u ‘ 
‘’OOKB 


Grundlagen: 

Alles über Floppy¬ 
programmlerung 


Spiele: 

30-TVon 

Auxllla - Im Reich der Magie 


Anwend ungen: 

Musikprogramm de Luxe 
Chemie - ganz einfach 


CP/M: 

Viele Tips und 
Ergänzungen 


Tlps&Uicks: , 

Stark: 

Baslc-Programmo 

verkürzen 


Hardware: 

Sprachsynthesizer 
de Luxe 


Unabhängig von der Anzahl der bestellten Programme berechnen wir für das Inland 4,- DM bzw. für das Ausland 6,- DM Porto und Verpackung 
•— Bitte benutzen Sie die Bestellkarte. 
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